تهیه لیست از پوشه ها و فایل های یک مسیر

[emran]

با سلام
اگر بخواهیم از دایرکتوری ها و فایل های یک مسیر توی اکسل لیست تهیه کنیم ( به همراه زیر شاخه ها ) چکار میشه کرد ؟
من با این کد تونستم از فایل ها لیست تهیه کنم ولی واسه زیرشاخه ها نتونستم !!



Sub Macro1()
Dim rw
rw = 1
Filename = Dir("D:\path\*.*")
Do While Filename <> ""
Cells(rw, 1).Value = Filename
rw = rw + 1
Filename = Dir
Loop
End Sub

[mostafahtsm]

سلام
میتونید نرم افزار لیست فایل ها یک پوشه (بررسی و جستجوی پوشه) را از لینک زیر دانلود کنید.
نرم افزار لیست فایل های یک پوشه (https://www.kanazspid.ir/acc/applicationsoftwares/237-%D9%86%D8%B1%D9%85-%D8%A7%D9%81%D8%B2%D8%A7%D8%B1-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%D8%AF%D8%A7%DB%8C%D8%B1%DA%A9%D8%AA%D9%88%D8%B1%D B%8C-%DA%A9%D8%A7%D9%86%D8%A7%D8%B2.html)