[VB6] Cercare file nel PC e costruire struttura file system disco fisso

[nandoar]

salve ho un problema ho la necessita di creare un programma che esegua la funzione di trovare un file sul mio pc ad esempio nel text1 ci sta ciao.pdf e un command nel command ci deve stare il codice che mi da in una list box tutti i risultati ottenuti

[oregon]

Mi pare se ne sia parlato molte volte nel forum ... hai fatto una ricerca?

Magari con il FileSystemObject e una funzione ricorsiva ...

[nandoar]

si ho preovato tipo cercare file su pc o roba del genere puoi segnlarmi qualche link magari una mano scusa per il tu

[oregon]

Ho trovato almeno 3 discussioni che possono esserti utili ...

http://forum.html.it/forum/showthrea...hreadid=834696

http://forum.html.it/forum/showthrea...hreadid=913315

http://forum.html.it/forum/showthrea...readid=1007519

... e nella prima c'e' anche un esempio utile ...

[nandoar]

salve ho una piccola necessita riuscire a vedere in un list box tutti i file presenti nel mio pc sotto forma di percorso esteso e nn di albero tipo quando fai la scanzione di virus +o- in quel modo

[oregon]

La soluzione e' nei link che ti ho mostrato nell'altra domanda che hai fatto ... e di cui non hai detto se hai risolto ...

[nandoar]

niente da fare il primo è quello che più mi aiuta sl che si blocca il programma sp un po e nn vorrei averlo in bebug ma in una liost box inoltre tra un percorso e un altro deve passare almeno un tempo definito dall utente aiutami ti prego

[oregon]

La visualizzazione in debug e' un esempio ... al posto della Print metti una List1.AddItem per avere il risultato nella listbox.

Sul tempo ... non ho capito cosa intendi e non l'avevi detto nella prima richiesta ...

[nandoar]

si scusa ma me ne sn accorto sl ora di questa necessita che ho ma mi serve che ogni cilo si deve fermare per un tempo xxxx


Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim f As Folder

Set f = fso.GetFolder("c:\")

Call ScanDir(f)

End Sub

Public Sub ScanDir(fol As Folder)
Dim fl As Folder
Dim fi As File

For Each fi In fol.Files
list1.additem fi.path

'aspetta x tempo
Next

For Each fl In fol.SubFolders
Call ScanDir(fl)
Next
End Sub



vedi se va bn

[oregon]

Piu' o meno ... cosi' dovrebbe andare.

Nella Sleep il valore 1000 indica 1 secondo ...

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim f As Folder
    
    Set f = fso.GetFolder("c:\")
    
    Call ScanDir(f)
End Sub

Public Sub ScanDir(fol As Folder)
    Dim fl As Folder
    Dim fi As File
    
    List1.Clear
    
    For Each fi In fol.Files
        List1.AddItem fi.Path
    
        Sleep (1000)
        DoEvents
    Next
    
    For Each fl In fol.SubFolders
        Call ScanDir(fl)
    Next
End Sub

Pero' fai attenzione perche' la scansione di tutto un disco e' molto lunga e se introduci anche un ritardo, non finisce piu' ...