Set fso = CreateObject("Scripting.FileSystemObject")
Call ElencaFolders("C:\Programmi", fso)
msgbox str

Sub ElencaFolders(folderOr As String, ByRef fso)
Dim f, cartella, SubF
Static i As Long
Dim NewDir As String

Set f = fso.GetFolder(folderOr)
Call ElencaFiles(folderOr, fso)
Set SubF = f.SubFolders
If (SubF.Count > 0) Then
For Each cartella In SubF
NewDir= fso.BuildPath(folderOr, cartella.Name)
Call ElencaFolders(NewDir, fso)
Next
End If
End Sub

Sub ElencaFiles(folderOr As String, ByRef fso)
Dim folderO, insiemeFiles, file

Set folderO = fso.GetFolder(folderOr)
Set insiemeFiles = folderO.Files
If insiemeFiles.Count > 0 Then
For Each file In insiemeFiles
str=str+folderOR+file.name+vbcrlf
Next
End If
End Sub


Ho trovato questo codice, ma non riesco a usarlo tramite command.
Come faccio?