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

[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 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.