Skip to main content

AccessTr.neT


Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak

Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak

#7
mesela regedit de olduğu gibi  treeview şeklinde klasörler ve dosyalar sıralanır
bütün dalların açıldığını ve hepsinin sola dayalı olduğunu farzedin
eğer uzantısı varsa dosya demektir
eğer uzantısı yoksa klasör demektir
ama herbirinin dosya yolu ve boyutu bir şekilde olacak
@benbendedeilem
Cevapla
#8
Dosya hazırladım inceleyin File olarak varsaydım bilmediğim için sormuştum.

[Resim: do.php?img=10245]

Option Compare Database


Private Sub Form_Load()
    Me.txt1.Value = Application.CurrentProject.path
    Me.listbox1.ColumnCount = 3
    Call DosyaAra(Me.txt1.Value)
End Sub

Sub DosyaAra(ByVal path As String)

    Dim AltDosyalar As Object
    Dim Dosyalar  As Object
    Dim Fileler As Object
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Dosyalar = fso.Getfolder(path)

    For Each AltDosyalar In Dosyalar.subfolders
        Call DosyaAra(AltDosyalar.path)
    Next
   
        For Each Fileler In Dosyalar.Files
          If CurrentProject.Name <> Fileler.Name And Right(Fileler.Name, 6) <> "laccdb" Then
                Me.listbox1.AddItem Fileler.path & ";" & Fileler.Name & ";" & Fileler.Size
          End If
        Next
   
    Set fso = Nothing
    Set AltDosyalar = Nothing
    Set Dosyalar = Nothing
    Set Fileler = Nothing

End Sub
.rar Dosya yollari bulma vs.rar (Dosya Boyutu: 23,19 KB | İndirme Sayısı: 1)
Cevapla
#9
teşekkürler bende bu kod var ama modüle fonksiyon olarak yazıp listbox argüment olarak gidecek
@benbendedeilem
Cevapla
#10
Modul1 adında modül ekleyim alttaki kodu ekleyin.
Sizin extra Form adıda ekledim.

Option Compare Database
Public lstbox As String
Public FormAd As String

Sub DosyaAra(ByVal path As String)

    Dim AltDosyalar As Object
    Dim Dosyalar  As Object
    Dim Fileler As Object
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Dosyalar = fso.Getfolder(path)

    For Each AltDosyalar In Dosyalar.subfolders
        Call DosyaAra(AltDosyalar.path)
    Next
   
        For Each Fileler In Dosyalar.Files
          If CurrentProject.Name <> Fileler.Name And Right(Fileler.Name, 6) <> "laccdb" Then
            Forms(FormAd).Controls(lstbox).AddItem Fileler.path & ";" & Fileler.Name & ";" & Fileler.Size
          End If
        Next
   
    Set fso = Nothing
    Set AltDosyalar = Nothing
    Set Dosyalar = Nothing
    Set Fileler = Nothing

End Sub
FormLoad koduda altta.

Option Compare Database


Private Sub Form_Load()
    Me.txt1.Value = Application.CurrentProject.path
    Me.listbox1.ColumnCount = 3
    FormAd = Me.Name
    lstbox = Me.listbox1.Name
    Call DosyaAra(Me.txt1.Value)
End Sub
.rar Dosya yollari bulma vs 2 modul ile.rar (Dosya Boyutu: 30,59 KB | İndirme Sayısı: 4)
Cevapla
#11
ellerinize sağlık teşekkürler
@benbendedeilem
Cevapla
#12
Rica ederim,kolay gelsin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task