Elenca tutti i nomi di file nella directory
Il codice seguente è una subroutine che otterrà i nomi di tutti i file presenti in un percorso di directory:
Sub List_All_The_Files_Within_Path() Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C:My Documents" Row_No = 36 'Elenca tutti i file nella directory corrente con Application.FileSearch .PathInSearch = File_. .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets("Sheet1").Cells(kk25 + 5, 15).Value = .FoundFiles(kk25) Avanti kk25 End With End Sub
Scriverà i nomi dei file su Foglio1 nella colonna O, a partire dalla riga 36
Scarica qui il file Excel
