Dosya ve alt dosya adlarını listeleme...

[ozgretmen]

Merhaba arkadaşlar;
Sorum Ekte....YArdımlarınızı bekliyor, saygılar sunuyorum ...

 

[HKLSZ]

hayırlı bayramlar..!

ALT KLASÖR LİSTELEME

Sub altklasor()

Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Lütfen bir klasor seçin !", &H100)
MyPath = ObjFolder.Items.Item.Path
Call FolderList(MyPath)
End Sub
'
Sub FolderList(MyPath)
Dim i As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(MyPath)
Set sf = f.SubFolders

For Each f1 In sf
i = Range("C1").Value
i = i + 1
Cells(i, 1) = f1.Path
Range("C1").Value = i
Call FolderList(f1.Path)
Next

End Sub

 

[ozgretmen]

Teşekkürler sayın HKLSZ...