General |
6.30 Ricerca di un file sul disco. |
AntoGal |
Dim i As Integer With Application.FileSearch .LookIn = "C:\Documenti" 'dir di partenza .SearchSubFolders = True 'ricerca ricorsiva nelle sottodir .FileName = "*.doc" 'nome del file (anche con caratteri jolly) If .Execute() > 0 Then Debug.Print "Trovati " & .FoundFiles.Count & " file." For i = 1 To .FoundFiles.Count Debug.Print .FoundFiles(i) 'path+nome dei file trovati Next i Else MsgBox "Nessun file trovato." End If End With |