Navedite sva imena datoteka u direktoriju
Sljedeći je kod potprogram koji će dobiti imena svih datoteka prisutnih na putu direktorija:
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 'Navodi sve datoteke u trenutnom direktoriju pomoću Application.FileSearch .NewSearch. .Filename = "*.*" .SearchSubFolders = False .Izvršite No_Of_Files = FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Cells (kk25 + 5, 15) .Vrijednost = FoundFiles (kk25) Next kk25 Kraj s krajem Sub
Zapisat će imena datoteka na Sheet1 u stupac O - počevši od retka 36
Ovdje preuzmite Excel datoteku
