Seznam vseh imen datotek v imeniku
Naslednja koda je podprogram, ki bo dobil imena vseh datotek, ki so prisotne na poti imenika:
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: Moji dokumenti" Row_No = 36 'Navaja vse datoteke v trenutnem imeniku z Application.FileSearch .NewSearch. .Filename = "*.*" .SearchSubFolders = false. kk25 Konec s koncem Sub
Imena datotek bodo zapisana na Sheet1 v stolpec O - začenši pri vrstici 36
Prenesite datoteko Excel tukaj