belli bir klasör içindeki dosya isimlerini listeleme

[demirtas]

Belli bir klasör içinde yer alan dosya isimlerini listeleyen/hücrelere yazıran bir kod arıyorım
Ama klasör içinde yer alan dosyalar sadece excel dosyası değil Herhangi bir şey olabilir..

Yardımcı olabilecek arkadaşlar varsa sevinirim..

Teşekkürler..

 

[Kemal Demir]

gunaydın,

Sn.demirtas aradıgınız konu ile ilgili forum'da fazlasıyla ornekler mevcut.Birdahaki seferinde Forum içerisinde aramınızı oneririm.

Sub Dosyalari listele()
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Lütfen bir klasor seçin !", &H100)
MyPath = ObjFolder.Items.Item.Path
yol = MyPath
Dizin = yol
kitap = Dir(Dizin & Application.PathSeparator & "*.*", vbDirectory)
'TextBox1 = yol
Do While kitap <> ""
If kitap = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
Cells(i, 1) = kitap
Cells(i, 2) = yol & "\" & kitap
ResumeSub:
kitap = Dir
Loop
End Sub

Kodlar bana ait değil.Forumdaki değerli arkadaslardan birinindir.

 

[ermanusta]

acaba bu kodu tüm alt klasör ile birlikte çalıştırabilirmiyiz.
şu an sadece tek bir klasör içindeki klasör ve dosya isimlerini getiriyor.

 

[Korhan Ayhan]

Forumda bolca örnek var. Arama yapmanızı öneririm.

Arama Sonuçları