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.