Seznam všech názvů souborů v adresáři
Následující kód je podprogram, který získá názvy všech souborů, které jsou v cestě k adresáři:
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 'Listists all the files in the current directory With Application.FileSearch .NewSearch .PookIn .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) Next kk25 Konec s koncem Sub
Zapíše názvy souborů do Listu1 ve sloupci O - počínaje řádkem 36
Stáhněte si soubor aplikace Excel zde
