[VBA] ricerca di file su tutto il disco

[misterx]

qui è un inizio di codice che ho ricavato da un esempio sulla documentazione

Problema: si ferma solo alla prima directory: se qualcuno avesse voglia di modificare questo codice in modo che la ricerca si estenda per tutto il disco, grazie :)





Sub MostraFile()

i = 1: Range("a1:a500").Delete


Dim MyFile, MyPath, MyName

MyPath = "C:\"

MyName = Dir(MyPath, vbDirectory)

Do While MyName <> ""

If MyName <> "." And MyName <> ".." Then

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Cells(i, 1).Select
Selection.Font.ColorIndex = 41
Cells(i, 1) = MyPath + MyName: i = i + 1

Else

Cells(i, 1) = MyPath + MyName: i = i + 1

End If

End If

MyName = Dir

Loop

End Sub

[cionci]

Scusa, ma non ti basta una ricorsione ? Il problema è che non so come si passa il range...


Sub MostraFile()

i = 1: Range("a1:a500").Delete

VisitaDir "C:\", i

End Sub

Sub VisitaDir(MyPath As String, i As ....)

Dim MyFile, MyPath, MyName


MyName = Dir(MyPath, vbDirectory)

Do While MyName <> ""

If MyName <> "." And MyName <> ".." Then

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Cells(i, 1).Select
Selection.Font.ColorIndex = 41
Cells(i, 1) = MyPath + MyName: i = i + 1
VisitaDir MyPath + MyName, i

Else

Cells(i, 1) = MyPath + MyName: i = i + 1

End If

End If

MyName = Dir

Loop

End Sub

[misterx]

certo cionci è proprio di una ricorsione che necessita lo script ma non ho tempo di guardarci addosso :(

se c'è qualcuno che ha già risolto ben venga

[misterx]

dove cavolo stà l'errore ?



Sub vai()

Range("a1:a50000").Delete

MostraFile "C:\", 1

End Sub

Function MostraFile(MyPath As String, i As Integer)

MyName = Dir(MyPath, vbDirectory)

Do While MyName <> ""

If MyName <> "." And MyName <> ".." Then

If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
Cells(i, 1) = MyPath + MyName: i = i + 1
Else
MostraFile MyPath + MyName + "\", i

End If

End If

MyName = Dir

Loop
MostraFile MyPath, i
End Function