makro ile klasör listesi almak

[fyucel]

Değerli arkadaşlar
Excel sayfasına, göstereceğim bir klasörün alt klasörlerini listeleyen makroya ihtiyacım var yardımcı olursanız sevinirim.
saygılar

 

[PLİNT]

Merhaba
Aşağıdaki kodu boş bir excel sayfasında deneyin.
Klasörün; alt klasör ve onların alt klasörlerine bağlı olarak yazılan sütunlar artacaktır.
"C:\Deneme" klasörü ve alt klasörü için:

Private Sub CommandButton1_Click()
[COLOR="Blue"]Cells = ""[/COLOR]
On Error Resume Next
Set a = CreateObject("scripting.filesystemobject")
[COLOR="Blue"][a1] = "C:\Deneme"[/COLOR]
s = 1
n = 1: h = 1
geri: i = 0: s = s + 1
For j = 1 To Cells(Rows.Count, h).End(3).Row
k = Cells(j, h).Value
Set klasor = a.GetFolder(k)
If Not klasor Is Nothing Then
 If klasor.Subfolders.Count > 0 Then
For Each alt In klasor.Subfolders
i = i + 1
Cells(i, s) = alt
Next
End If
End If
Next
h = h + 1: n = n + 1
If Cells(1, h) <> "" Then: Set klasor = Nothing: GoTo geri
End Sub

 

[fyucel]

aradığım şey bu idi Teşekkür ederim PLİNT
saygılar

 

[ark123]

merhaba
klasöe içerisinde txt dosyalarım var. Bunlardan bazılarını kill komutu ile sileceğim. Dosya mevcutsa siliyor, yoksa hata veriyor. dosyanın var olduğunu nasıl sorgularım