Klasör içindeki dosya isimlerini excel sayfasına yazdırmak

[ozgretmen]

Slm arkadaşlar ;

Kusura bakmayın.Yanlış dosya eklenmiş.Tekrar yükledim.Yardımcı olursanız sevinirim. SAygılar

 

[ozgretmen]

Arkadaşlar bir bakarmısınız.Lütfen.Teşekkürler...

 

[ozgretmen]

İlgilenen bir arkadaş var mı ? Bende araştırıyorum.Şöyle ekteki gibi bir örnek buldum. Ama bir türlü uyarlayamadım.yardımcı olursanız sevinirim.İyi Çalışmalar...

 

[Zeki Gürsoy]

İlk ekli dosyanız içindir.

Sub Listele()
Dim FSO As Object, f As Object
 
    Set FSO = CreateObject( _
        "Scripting.FileSystemObject").GetFolder( _
        ThisWorkbook.Path).SubFolders
 
    For Each f In FSO
       d = Dir(f.Path & "\")
 
        If d <> "" Then
            While Not d = ""
                i = i + 1
                Cells(i + 1, "c") = f.Name
                Cells(i + 1, "d") = d
                d = Dir
            Wend
        End If
    Next
 
    Set FSO = Nothing
End Sub

 

[ozgretmen]

çok teşekkürler.İyi çalışmalar...

 

[ozgretmen]

Tekrar öerhaba arkadaşlar ;İlk ekteki örbek dosyama sayın anemos 'un verdiği kodlar yardımıyla sorunumu çözdüm.Ama soruların devamı bitmiyor.Bu EXCELİ de zaten bu yüzden seviyorum.Acaba şu soruların da bir çözümü varmıdır ?
1 - Kod yardımıyla Klasörün içindeki başka bir klasörün içindeki resim dosyalarının adı alınabilir mi?
2 - Hücreye yazdırılan bu dosya isimlerinin üzerine gelindiğinde dosyada kayıtlı resim açıklama içerisinde gösterilebilir mi ?

Her şey için teşekkürler...

 

[ozgretmen]

Arkadaşlar bakarmısınız lütfen ? Teşekkürler...