Išvardykite visus katalogo failų pavadinimus
Šis kodas yra paprogramė, kuri gaus visų katalogo kelyje esančių failų pavadinimus:
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 'Išvardijami visi dabartinio katalogo failai su Application.FileSearch .NewSearch .NewSearch. .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Ląstelės (kk25 + 5, 15) .Value = .FoundFiles (kk25) Kitas kk25 Pabaiga su pabaiga Sub
Jis įrašys failų pavadinimus į 1 lapą O stulpelyje - pradedant nuo 36 eilutės
Atsisiųskite „Excel“ failą čia
