Dosya isimlerini listeleme

[mgd]

Merhaba arkadaşlar,
bir klasör içindeki tüm dosya isimlerini otomatik olarak excel'deki bir sütuna yazdırılmasını nasıl sağlayabiliriz?

Not: Yanlış hatırlamıyorsam daha önce bu forumda (veya başka bir forumda) böyle bir konu görmüştüm, ama arama fonksiyonunu kullanarak bulamadım.

 

[abazya]

Dosyamı,Sayfamı veya şöyle söyleyeyim inşallah aşağıdaki link işini görür benim hatırladığım bu

http://www.excel.web.tr/viewtopic.php?t=5151&highlight=

 

[Levent Menteşoğlu]

Sanıyorum aşağıdaki linki kasedediyorsunuz.

http://www.excel.web.tr/viewtopic.php?t=4916&highlight=filesystemobject

 

[spilavci]

MERHABA ARKADAÞLAR

DOSYA ÇOK GÜZEL.DOSYALARI ALDIKTAN SONRA KÃ?PRÜ YAPMAK İLGİNÇ GELDİ..ÜSTATLAR KADAR OLMASADA BİR ÞEYLER YAPMAYA ÇALIÞTIM.

NOT:BENİM DOSYALARIM ÞU ADRESTE :

C:\Documents and Settings\SELAMİ\Belgelerim

 

[vbasic]

Arkadaşlar bir klasördeki klasör isimlerini nasıl yazdırabiliriz ?
Teşekkürler.

 

[Levent Menteşoğlu]

Sn bedersu'nun forumumuza kazandırdığı FSO makalesinde istediğiniz kodu bulabilirsiniz. Bu linki mutlaka inceleyin.

http://www.excel.web.tr/viewtopic.php?t=4883

Bu linkteki kodu aynı şekilde veriyorum.

[vb:1:74dfdcf41b]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[/vb:1:74dfdcf41b]

 

[Haluk]

Bu da eski bir çalışmam ... bilgisayarda seçilen herhangibir klasöre ve onun alt klasörlerine ait dosyaların listelenmesi.

 

[Necdet]

Bir fikirde benden malum eski adam olduğumuz için dos komutlarını kullanmasını pek severim,
ilgili directory de dir > dosya_adi yazip listenenen dosyaları dosya_adi adli dosyaya alırım. sonra excelde worde nerde gerekirse kullanırım, excel için pek uğraşmam

bana göre en kısa yol hehe