Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 2.478 pregleda

Najnovija ↓

Otvaranje foldera pomucu visual basica 19.07.2010. u 12:01 · pre 198 meseci
izmenjeno 1 put, poslednji put silbas2004 19.07.2010. u 12:18
  1. silbas200419.07.2010. u 12:18zapis iz teksta poruke
#1
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)
Re: Otvaranje foldera pomucu visual basica 19.07.2010. u 12:31 · pre 198 meseci #2
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.
Potpis
Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac
Re: Otvaranje foldera pomucu visual basica 19.07.2010. u 13:12 · pre 198 meseci
izmenjeno 1 put, poslednji put silbas2004 19.07.2010. u 14:44
  1. silbas200419.07.2010. u 14:44zapis iz teksta poruke
#3
Jeste tako je.
Re: Otvaranje foldera pomucu visual basica 20.07.2010. u 03:49 · pre 198 meseci #4
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.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme