Bir Dizinde bulunan tüm dosyaların listesi - VBA Kodu Örnekleri

Dizindeki Tüm Dosya Adlarını Listele

Aşağıdaki kod, bir dizin yolunda bulunan tüm dosyaların adlarını alacak bir alt programdır:

 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 'Application.FileSearch _PaookIn = File ile geçerli dizindeki tüm dosyaları listeler. .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) kk25 End Sub ile Bitir 

Dosya adlarını O sütununda Sayfa1'e yazar - 36. satırdan başlayarak
Excel dosyasını buradan indirin