Indholdsfortegnelse
Liste over alle filnavne i biblioteket
Den følgende kode er en underprogram, der får navnene på alle de filer, der er til stede i en bibliotekssti:
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 'Lister alle filerne i den aktuelle mappe med Application.FileSearch .NewSearch .LookIn = File_Path_ .Filename = "*.*" .SearchSubFolders = Falsk .Udfør No_Of_Files = .FoundFiles.Count For kk25 = 1 Til No_Of_Files regneark ("Sheet1"). Celler (kk25 + 5, 15) .Værdi = .FoundFiles (kk25) Næste kk25 Slut med ende Sub
Det vil skrive filnavne til Sheet1 i kolonne O - startende ved række 36
Download Excel -filen her
