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

[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]

سلام
میتونید نرم افزار لیست فایل ها یک پوشه (بررسی و جستجوی پوشه) را از لینک زیر دانلود کنید.
نرم افزار لیست فایل های یک پوشه