Routine per calcolare il numero dei files su un hard-disk e il tempo che il vs computer impiega. Modificando l'estensione assegnata al tipo di file da cercare ( .Filename = "*.mdb" ) potrete provare con vari tipi di files. Se vorrete consultare altri hard-disk, sarà sufficiente modificare la lettera dell'unità nell'istruzione .LookIn = "C:\"

Sub ContaFiles()
Dim D1, D2 As Date
Dim tempoimpiegato As String
D1 = Time
Set fs = Application.FileSearch
With fs
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "*.mdb"
If .Execute() > 0 Then

For i = 1 To .FoundFiles.Count
X = .FoundFiles(i)
Next i
MsgBox "Ci sono " & i & " Files"

End If
If IsEmpty(X) Then Exit Sub
End With


D2 = Time
tempoimpiegato = Format(D2 - D1, "hh:mm:ss")
MsgBox "Tempo impiegato: " & tempoimpiegato
End Sub

 

 

prelevato sul sito www.ennius.altervista.org