- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba;
Bir klasör altındaki dosyaları listemek isterken,
bu klasördeki; alt klasörlerin içerisinde bulunan dosyalarında listelenmesini sağlayabilirmiyiz.
İyi Çalışmalar...
Bir klasör altındaki dosyaları listemek isterken,
bu klasördeki; alt klasörlerin içerisinde bulunan dosyalarında listelenmesini sağlayabilirmiyiz.
Sub DosyalariListele()
Dim dosya
Dim i As Integer
ChDir ("C:\proje")
dosya = Dir("*.DOC")
i = 1
While dosya <> ""
Cells(i, 6) = dosya
dosya = Dir
i = i + 1
Wend
End Sub
İyi Çalışmalar...