Cercare un file od un insieme di file sul disco fisso

Questo esempio si compone di due subroutine e consente di ricercare un file od un insieme di file all'interno di una cartella o dell'intero disco fisso.

Michele Nasi Pubblicato il 13 gen 2003

Cercare un file od un insieme di file sul disco fisso

Howto

Aggiungi IlSoftware.it come Fonte preferita su Google

Questo esempio si compone di due subroutine e consente di ricercare un file od un insieme di file all’interno di una cartella o dell’intero disco fisso. Il nome ed il percorso dei file trovati vengono memorizzati nel file di testo specificato.

Utilizzo:

Search32 "C:\", "*.DOC", "c:\DIR.TXT"

– al posto di C:\ indicate il disco fisso o la cartella all’interno della quale desiderate effettuare la ricerca;
– al posto di *.DOC specificate il file o l’insieme di file che desiderate cercare. E’ consentito l’uso delle wildcards (o caratteri jolly);
– al posto di c:\DIR.TXT indicate percorso e nome del file di testo che desiderate creare e che conterrà il risultato della ricerca.

Il codice Visual Basic

Sub Search32(dPath$, dpattern$, SFileName)
    Close #10
    Open SFileName For Output As 10
    Call dirloop(dPath$, dpattern$)
    Close #10
End Sub

Sub dirloop(thispath As String, thispattern As String)
    Dim thisfile, thesefiles, thesedirs, X, checkfile
    If Right$(thispath, 1) “\” Then thispath = thispath + “\”
    thisfile = Dir$(thispath + thispattern, 0)

    Do While thisfile “”
        Print #10, LCase$(thispath + thisfile)
        thisfile = Dir$
    Loop

    thisfile = Dir$(thispath + “*.”, 0)
    thesefiles = 0
    ReDim filelist(10)

Do While thisfile “”
thesefiles = thesefiles + 1

If (thesefiles Mod 10) = 0 Then
ReDim Preserve filelist(thesefiles + 10)
End If
filelist(thesefiles) = thisfile
thisfile = Dir$
Loop
thisfile = Dir$(thispath + “*.”, 16)
checkfile = 1
thesedirs = 0
ReDim dirlist(10)

Do While thisfile “”

If thisfile = “.” Or thisfile = “..” Then
ElseIf thisfile = filelist(checkfile) Then
checkfile = checkfile + 1
Else
thesedirs = thesedirs + 1
If (thesedirs Mod 10) = 0 Then ReDim Preserve dirlist(thesedirs + 10)
dirlist(thesedirs) = thisfile
End If
thisfile = Dir$
Loop

For X = 1 To thesedirs
Call dirloop(thispath + dirlist(X), thispattern): DoEvents
Next X
End Sub<

Cercare un file od un insieme di file sul disco fisso

Il codice Visual Basic

Ti consigliamo anche

Un bug di Visual Studio Code permette il furto dei token GitHub con un clic

Attacco a Red Hat: malware nascosto nei pacchetti npm, a rischio credenziali cloud

Flathub vieta l'uso dell'AI: cosa cambia per app e sviluppatori Linux

AMD cambia le licenze Vivado e fa infuriare gli utenti Linux