Evo, ova procedura bi ti trebala resiti probleme:
Code:
Private Sub FindFiles(ByVal strPath As String)
Dim i As Integer
For i = 0 To My.Computer.FileSystem.GetDirectories(strPath).Count - 1
Call FindFiles(My.Computer.FileSystem.GetDirectories(strPath).Item(i))
Next
For i = 0 To My.Computer.FileSystem.GetFiles(strPath).Count - 1
If My.Computer.FileSystem.GetFileInfo(My.Computer.FileSystem.GetFiles(strPath).Item(i).ToString).Extension = ".dwg" Then
ListBox1.Items.Add(My.Computer.FileSystem.GetFileInfo(My.Computer.FileSystem.GetFiles(strPath).Item(i).ToString).Name)
End If
Next
End Sub
Samo je pozoves i prosledis joj zeljenu pocetnu putanju, a ona ce ti napuniti ListBox. ;)
Nadam se da sam bio od pomoci.
Btw, ako imas jos nekih pitanja, na raspolaganju sam.