Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: przeszukiwanie dsyku w poszukiwaniu plikow
anonim




Typ: Nie zarejestrowany
przeszukiwanie dsyku w poszukiwaniu plikow

czesc
od jakiegos czasu przysiadajac sie do vb prubuje napisac program ktory przeszukiwalby partycje dysku w poszukiwaniu jakiegos pliku.
robie to za pomoca kontrolek dir drive i file
ale nie potrafie sprawic aby program po zaglebieniu sie w strukturze katalogow powracal i przeszukiwal pominiete odnogi.
macie moze jakies pomysly na algorytm ?

05-12-2004 01:06
  
anonim




Typ: Nie zarejestrowany

a = Drive1.ListCount
Dir1.Path = "c:\"


For i = 1 To (a - 1) ' ile partycji

    Drive1.ListIndex = i
    Dir1 = Drive1
    'b = Dir1.ListCount
j = 0
   

      Dir1.ListIndex = j
       
        s = Dir1.List(j)
        Dir1.Path = s
10
        c = Dir1.ListCount
       
        If c > (0) Then
     
         
            s = Dir1.List(0)
              ss = Dir1.List(k - 1)
           
            Label1.Caption = Dir1.Path
               
               
                Dir1.Path = s
                ' o = Dir1.ListIndex
              GoTo 10
         
        End If
        Dir1.Path = ss
        ss = Dir1.List(k + 1)
        Dir1.Path = ss
        s = Dir1.List(k)
        s = ss
        GoTo 10
        Beep
    'Next j
Next i


End Sub


straszny chaos ale moze ktos to zczai

05-12-2004 01:11
  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

temat był już poruszany

Możesz wykorzystać kod jaki zapodałem do wyliczania rozmiaru katalogów - zamiast wyliczania rozmiaru możesz porównywać nazwę pliku z szukanym


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

05-12-2004 10:26
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1