Klasör Altındaki Dosyaları Listele

[baydeniro]

Merhaba Arkadaşlar,

Dosya Yolu (adresi) A1 hücresinde yazılı olan bir klasör altındaki dosyaların A3 hücresinden aşağıya doğru listelenmesi mümkün müdür ?

 

[muygun]

Merhaba;
A1 hücresinde;
C:\deneme\ddd gibi bir yol adresi varsa;
Boş bir modüle;

Sub klasördeki_dosyalar()
Range("a3:a65536").ClearContents
yol = Cells(1, "a") & "\"
Set s1 = CreateObject("Scripting.FileSystemObject")
satır = 3
For Each i In s1.GetFolder(yol).Files
Cells(satır, "a").Value = s1.GetBaseName(i)
satır = satır + 1
Next i
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[baydeniro]

Merhaba;
A1 hücresinde;
C:\deneme\ddd gibi bir yol adresi varsa;
Boş bir modüle;

Sub klasördeki_dosyalar()
Range("a3:a65536").ClearContents
yol = Cells(1, "a") & "\"
Set s1 = CreateObject("Scripting.FileSystemObject")
satır = 3
For Each i In s1.GetFolder(yol).Files
Cells(satır, "a").Value = s1.GetBaseName(i)
satır = satır + 1
Next i
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

muygun üstadım harikulade bir kod bu. Çok çok teşekkür ediyorum, sağolun, varolun. Sağlıcakla kalın

 

[baydeniro]

muygun üstadım, dosyaları adresleri birlikte listelemek istenildiğinde kodu nasıl düzeltmeliyiz !

 

[muygun]

muygun üstadım, dosyaları adresleri birlikte listelemek istenildiğinde kodu nasıl düzeltmeliyiz !

Merhaba;
İsteğinizdeki adres zaten A1 hücresinde var.
Ama isteğiniz uzantı ise yada her ikiside ise;

Sub klasördeki_dosyalar()
Range("a3:a65536").ClearContents
yol = Cells(1, "a") & "\"
Set s1 = CreateObject("Scripting.FileSystemObject")
satır = 3
For Each i In s1.GetFolder(yol).Files
Cells(satır, "a").Value = s1.GetBaseName(i)
satır = satır + 1
Next i
End Sub

Sub klasördeki_dosyalar_uzantılı()
Range("a3:a65536").ClearContents
yol = Cells(1, "a") & "\"
Set s1 = CreateObject("Scripting.FileSystemObject")
satır = 3
For Each i In s1.GetFolder(yol).Files
Cells(satır, "a").Value = i.Name
satır = satır + 1
Next i
End Sub

Sub klasördeki_dosyalar_yolveuzantılı()
Range("a3:a65536").ClearContents
yol = Cells(1, "a") & "\"
Set s1 = CreateObject("Scripting.FileSystemObject")
satır = 3
For Each i In s1.GetFolder(yol).Files
Cells(satır, "a").Value = Cells(1, "a") & "\" & i.Name
satır = satır + 1
Next i
End Sub

3 makroyu da deneyin. (Hangisi uygun ise onu kullanırsınız.)
İyi çalışmalar.

 

[baydeniro]

muygun üstadım çok çok teşekkür ediyorum, harika bir set oldu. Sağlıcakla kalın