Dosya isimlerini listeleme

[gurbuzs]

mesela belgelerim klasöründeki dosya isimlerini excele liste halinde almak istiyorum.
daha önce konu açılmış ama 2005 olduğu için linkler açılmadı.
saolsun arkadaşlardan biri formulü yazmış(altta), ama bu mesaj kutusu olarak geliyor alamıyorum direk excele nasıl yazdırırım.

Sub Alt_Klasör_İsimleri()
Dim ds, f, f1, fc, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Belgelerim")
Set fc = f.SubFolders
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub

 

[hamitcan]

Sub Dosya_İsimleri()
    Dim ds, f, f1
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set f = ds.GetFolder("C:\deneme\")
    For Each f1 In f.Files
        c = c + 1
        Cells(c, 1) = f1.Name
    Next
End Sub

şeklinde deneyin.

 

[gurbuzs]

kısmi oldu

Hamit bey teşekkür ederim oldu.
Ancak klasörlerin içindeki örneğin excel isimleri çıkmıyor sadece klasör isimleri çıkıyor
yani klasörün içinde klasör varsa ism, geliyor ama direk dosyalar word excel çıkmıyor.
onları dosya uzantılarıyla nasıl alırız...

 

[hamitcan]

Kodu düzelttim.

 

[gurbuzs]

çok teşekkür ederim...
peki belgelerim klasöründekileri;
şu klasör içindeki de bu şeklinde yapamaz mıyız.
ya klasörü veriyo ya ismini aynı anda olmaz mı..

 

[soledon]

arkadaşlar ilk kod sadece dizinleri listeliyor
ikinci kod ise sadece belirtilen dizindeki dosyaları listeliyor
gurbuzs ve hamitcan teşekkürler
BELİRTİLEN DİZİNDEKİ VE ALT DİZİNLERİNDEKİİ DOSYALARI LİSTELEME KODU EKLEYEEBİLRMİSİNİZ

 

[hamitcan]

Aşağıdaki linkleri inceleyin.
http://www.excel.web.tr/showthread.php?t=45766&highlight=dosya+liste
http://www.excel.web.tr/showpost.php?p=248453&postcount=6

 

[halit3]

alternatif link userform4 de buna örnek bir uygulama var

http://www.excel.web.tr/showthread.php?t=68879

 

[yilmazweb]

Merhaba Hamitcan Hocam
Dosya yolunu ("C:\deneme\") belli bir hücreden aldırmak istersek kodu nasıl düzenlememiz gerekir.

 

[hamitcan]

 Set f = ds.GetFolder([A1])

şeklinde deneyin.

 

[yilmazweb]

Teşekkür ederim Hocam.