[ silbas2004 @ 19.07.2010. 11:01 ] @
Pozz,napravio sam program koji izdvaja "DWG" fajlove iz selektovanog foldera,ali kad imam folder u folderu ili kad tih podfoldera ima nekoliko,tada ne znam kako da napisem program koji moze uzimati iz tih podfoldera dwg fajlove.(ko nije upoznat,dwg fajlovi su autokedovi crtezi)

[Ovu poruku je menjao silbas2004 dana 19.07.2010. u 12:18 GMT+1]
[ Shadowed @ 19.07.2010. 11:31 ] @
Ako sam dobro shvatio sta ti treba, potrebno je da napravis rekurzivnu funkciju koja izdvaja fajlove iz nekog foldera i poziva samu sebe za svaki podfolder.
[ silbas2004 @ 19.07.2010. 12:12 ] @
Jeste tako je.

[Ovu poruku je menjao silbas2004 dana 19.07.2010. u 14:44 GMT+1]
[ zika025 @ 20.07.2010. 02:49 ] @
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.