Lang L: none (table-of-contents)
Loetlege kõik kataloogi failinimed
Järgmine kood on alamprogramm, mis saab kõigi kataloogiteel olevate failide nimed:
Sub List_All_The_Files_Within_Path () Dim Row_No Täisarv Dim No_Of_Files Nagu täisarv Dim kk25 Nagu täisarv Dim File_Path As String File_Path = "C: Minu dokumendid" Row_No = 36 'Loetleb kõik failid praeguses kataloogis Application.FileSearch .NewSearch .NewSearch .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Lahtrid (kk25 + 5, 15) .Value = .FoundFiles (kk25) Järgmine kk25 Lõpp lõpuosaga
See kirjutab failinimed lehele 1 veergu O - alates 36. reast
Laadige Exceli fail alla siit
