Innholdsfortegnelse
Vis alle filnavn i katalogen
Følgende kode er en underrutine som får navnene på alle filene som er tilstede i en katalogbane:
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 'Viser alle filene i gjeldende katalog med Application.FileSearch .NewSearch .LookIn = File_Path_ .Filename = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Celler (kk25 + 5, 15) .Value = .FoundFiles (kk25) Neste kk25 Slutt med ende Sub
Det vil skrive filnavnene til Sheet1 i kolonne O - fra rad 36
Last ned Excel -filen her
