scanDiscs

'Limite per le directory da esaminare

Const Limite_Directory = 20000
'Limite per i file da trovare

Const Limite_File = 1000
Dim Percorso(Limite_Directory) As String
Dim File(Limite_File) As String
Dim File_Temp As String
Dim Dir_Temp As String
Screen.MousePointer = 11
Percorso(0) = "\"
Directory_Vuota = 0
q = 0
For j = 0 To Limite_Directory
ChDir (Percorso(j))
'per esempio si cercano tutti i database di Access

File_Temp = Dir("*.MDB")
Do While File_Temp <> ""
debug.print "Nome: " & LCase$(Percorso(j) & File_Temp)
debug.print "Dim: " & filelen(Percorso(j) & File_Temp)
q = q + 1
File_Temp = Dir
Loop
'elenca tutte le sotto directory

For i = 0 To Limite_Directory
If Percorso(i) = "" Then
Directory_Vuota = i - 1
i = Limite_Directory
End If
Next i
Dir_Temp = Dir(Percorso(j), vbDirectory)
k = 0
Do While Dir_Temp <> ""
If Dir_Temp <> "." And Dir_Temp <> ".." Then
If GetAttr(Percorso(j) & Dir_Temp) = vbDirectory Then
k = k + 1
Percorso(directory_vuota + k) = Percorso(j) & Dir_Temp & "\"
End If
End If
Dir_Temp = Dir
Loop
If Percorso(j + 1) = "" Then j = Limite_Directory
Next j
Screen.MousePointer = 0
'******************************************************

'Fine Procedura.

'******************************************************