[es] - Otvaranje foldera pomucu visual basica

silbas2004
Radoje Markovic
Subotica

Član broj: 60545
Poruke: 75
78.101.148.*

+1 Profil

Otvaranje foldera pomucu visual basica

^{19.07.2010. u 11:01 - pre 167 meseci}

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]}

Prikačeni fajlovi

WindowsApplication3.zip - 49.98k

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: Otvaranje foldera pomucu visual basica

^{19.07.2010. u 11:31 - pre 167 meseci}

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.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

silbas2004
Radoje Markovic
Subotica

Član broj: 60545
Poruke: 75
78.101.148.*

+1 Profil

Re: Otvaranje foldera pomucu visual basica

^{19.07.2010. u 12:12 - pre 167 meseci}

Jeste tako je.

_{[Ovu poruku je menjao silbas2004 dana 19.07.2010. u 14:44 GMT+1]}

Odgovor na temu

zika025
Student, ECCF
Sombor - Subotica

Član broj: 201105
Poruke: 40
*.dynamic.sbb.rs.

Profil

Re: Otvaranje foldera pomucu visual basica

^{20.07.2010. u 02:49 - pre 167 meseci}

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.

Odgovor na temu