Excel'de Herhangi bir Klasörün İçindeki Dosya Adlarını Nasıl Yazdırabilirim.

[Hattushil]

Merhaba,

Herhangi bir klasör içerisinde bulunan dosya adlarını nasıl excelde yazdırabilirim.

Örneğin,
A Klasörü içerisinde 10 adet dosya var ve bunları excel sayfasına yazdırmak istiyorum.

Yapmak istediğim A klasörü içerisindeki dosya adlarını excele yazdırarak belirli gönem aralıklarında otomatik mail göndertmek.

 

[hamitcan]

Aşağıdaki linki inceleyin.
https://www.excel.web.tr/threads/file-system-object.4488/

 

[Hattushil]

Merhaba,

Herhangi bir klasör içerisinde bulunan dosya adlarını nasıl excelde yazdırabilirim.

Örneğin,
A Klasörü içerisinde 10 adet dosya var ve bunları excel sayfasına yazdırmak istiyorum.

Yapmak istediğim A klasörü içerisindeki dosya adlarını excele yazdırarak belirli gönem aralıklarında otomatik mail göndertmek.

Altın Üyelik istiyor hocam,
Altın Üye olmadığım için erişemiyorum.

 

[Hattushil]

halit3 hocanın konuya gönderdiği kodla hallettim.
ama kodu biraz geliştirmek adına, çektiği klasör içeriğindeki .uzantıyı nasıl kaldırabilirim?

kodla gelen; dosya_adı.docx
istenen; dosya_adı

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

s = "dosya_adi.docx"
MsgBox Left(s, InStr(1, s, ".") - 1)

 

[Hattushil]

Aşağıdaki şekilde dener misiniz ?

s = "dosya_adi.docx"
MsgBox Left(s, InStr(1, s, ".") - 1)

kodu diğer kodun sonuna mı eklemem gerekiyor hocam?

 

[hamitcan]

Hayır. Ben size sadece uzantıyı nasıl kaldıracağınızı göstermek için bu satırı yazdım.

 

[muhasebeciyiz]

Forumumuzdan Levent Menteşoğlu'na ait alıntı kod

Sub dosya_isimleri()
Set klasorsec = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
yol = klasorsec.Items.Item.Path
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
Set dosyalar = klasor.Files
For Each dosya In dosyalar
c = c + 1
Cells(c, "a") = Replace(dosya.Name, "." & nesne.GetExtensionName(dosya.Name), "")
Next
End Sub