Listează toate numele de fișiere din director
Următorul cod este un subrutină care va primi numele tuturor fișierelor care sunt prezente într-o cale de director:
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 'Listează toate fișierele din directorul curent cu Application.FileSearch .NewSearchPathIn = File. .Filename = "*. *" .SearchSubFolders = False .Execute No_Of_Files = FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Cells (kk25 + 5, 15) .Value = FoundFiles (kk25) Next kk25 Sfârșitul cu sfârșitul Sub
Va scrie numele fișierelor pe Sheet1 în coloana O - începând cu rândul 36
Descărcați fișierul Excel aici
