Kodda Klasörleri Listeletme

1 2 3 4



Private Sub Form_Load()

Dim sCurFile As String

Dim sCurDir As String

Dim colDir As Collection



If Right$(StartDir, 1) <> "\" Then StartDir = StartDir & "D:\deneme\"

Set colDir = New Collection

Set ListDir = New Collection



colDir.Add StartDir

While colDir.Count

    

    sCurDir = colDir.Item(1)

    colDir.Remove 1

 

    sCurFile = Dir$(sCurDir, vbDirectory)

    

    While Len(sCurFile)

        If (sCurFile <> ".") And (sCurFile <> "..") Then

            If GetAttr(sCurDir & sCurFile) = vbDirectory Then 

                Me.List0.AddItem sCurDir & sCurFile & "\"

                Me.List2.AddItem sCurFile

            End If

        End If

        sCurFile = Dir$

    Wend

    DoEvents

Wend

End Sub

sadece klasörleri buluyor. Sonunda buldum Belki benden başkalarınında işine yarar. Herkese çok tşk ederim.

Çok teşekkürler Sayın erdem55. Mutlaka birilerinin işine yarayacaktır. Bir de izninle bir şey sormak istiyorum. Collection nasıl bir değişken türüdür.? Eklenen bir modüle veya ocx e referans mı veriliyor?

(26/11/2010, 02:15)Hayri16 yazdı: Collection nasıl bir değişken türüdür.? Eklenen bir modüle veya ocx e referans mı veriliyor?

Hayır.

Collection'lar, içerisinde birden fazla veri depolayabilen, gerektiğinde(benzersiz) veri ekleme, silme gibi işlemlere olanak sağlayan sanal nesnelerdir.

Örneğin Excel'de hazırladığım alttaki function ile bir aralığı benzersiz listeleyebiliyorum.
Aralıktaki veriler ilk önce benzersiz olarak Collection nesnesine alınmıştır, daha sonra oradan tek tek Dizi() adındaki başka bir sanal diziye alınmış ve sıralanmıştır.

Function Benzersiz_Listele(ByVal Aralik As Variant) As Variant

    Dim Col As New Collection

    Dim i As Long

    Dim Dizi As Variant

    Dim Hucre As Variant



    On Error Resume Next

    For Each Hucre In Aralik

        Col.Add CStr(Hucre), CStr(Hucre)

    Next

    On Error GoTo 0



    If Col.Count = 1 And Col.Item(1) = vbNullString Then

        Benzersiz_Listele = Null

        Exit Function

    End If



    ReDim Dizi(1 To Col.Count)

    For i = 1 To Col.Count

        Dizi(i) = Col.Item(i)

    Next

    Benzersiz_Listele = Dizi

End Function

Klasör listelemek için ben de bir örnek vereyim:

Sub Klasor_Listele()

    'Microsoft Scripting Runtime referansını gerektirir

    Dim FSO As FileSystemObject

    Dim Yol As String, Klasor As Folder, Alt_Klasor As Folder

    Yol = "C:\Documents and Settings\KLasörAdı\Desktop\"

    

    Set FSO = New FileSystemObject

    With FSO

        Set Klasor = .GetFolder(Yol)

        For Each Alt_Klasor In Klasor.SubFolders

            Call MsgBox(Alt_Klasor.Name)

        Next Alt_Klasor

    End With

End Sub

Sayın erdem55;

Günaydın..

Rica etsem dosyanızın son halini ekleyebilir misiniz?

İlgi ve yardımınız için teşekkürler..

Bu arada konuya ilişkin katkı veren hocalarım ve forum dostlarına da teşekkürler.

Sayın maytas;
Öğretici açıklamalarınız için teşekkür ederim.

(26/11/2010, 11:27)assenucler yazdı: Sayın erdem55;

Günaydın..

Rica etsem dosyanızın son halini ekleyebilir misiniz?

İlgi ve yardımınız için teşekkürler..

Bu arada konuya ilişkin katkı veren hocalarım ve forum dostlarına da teşekkürler.

Syn assenucler Dosyam şuan daha hazırlık aşamasında olduğundan eklemiyorum. Bititiğide int cafecilerin işine yarayacağını düşündüğüm biir program olacağına inanıyorum. Treeview bağlantılarını bitirdikten sonra çok bi işlemi kalmıyor. Zaman bulursam en kısa zamanda bitirip en son halini ekleyeceğim. Herkese yardımları için çok tşk ederim.

1 2 3 4