[حل شده] زیر دایرکتوری

[كامران]

با سلام

من با کمک اساتید سایت مشغول نوشتن یه فایل هستم که همونطوری که میبینید از یه فولدر دایرکتوری میگیره و اونو توی سلولهای ردیف 1 (یه سلول در میان ) قرار میده ( در نظر بگیرید که نتایج هم خودشون فولدر هستن )
حالا چیزی که من میخوام و از هر راهی بلد بودم رفتم و نشده اینه که اگه هرکدوم ار این فولدرهائی که مینویسه خودشون زیر فولدر داشتن به تعداد زیرفلدرها*2 سلول رد کنه بعد نتیجه بعدی رو بنویسه
یعنی الان ترتیب به اینصورته .... - b1 - d1 - e1 حالا اگه فولدر درج شده در b1 شامل 4 زیر فولدر باشه مورد بعدی بجای d1 در k1 درج بشه

[iranweld]

با سلام

فایل پیوست فولدر و ساب فولدرها را در یک مسیر مشخص شده ،لیست مینماید

[كامران]

با سلام

فایل پیوست فولدر و ساب فولدرها را در یک مسیر مشخص شده ،لیست مینماید

ممنون از زحمتی که کشیدین فقط یه موردی هست اینه که این برنامه کامل و پیچیده س و برای استفاده طراحی شده ولی من چیز ساده ای میخوام که ازش یاد بگیرم و برای کارهای دیگه م توسعه ش بدم ممنون میشم راهنمائی کنید

مثال

Sub FileInfo()
    
    Dim c As Long, r As Long, i As Long
    Dim Directory As String
    Dim FileName As Object 'FolderItem2
    Dim objShell As Object 'IShellDispatch5
    Dim objFolder As Object 'Folder3
    
        Set objShell = CreateObject("Shell.Application")
        Set objFolder = objShell.Namespace("c:\")
    r = 1
        For Each FileName In objFolder.Items
            r = r + 1
            c = c + 1
            Cells(1, c) = objFolder.GetDetailsOf(FileName, 0)
        Next FileName


End Sub

این چند خط کد تمام محتویات درایو c رو توی ردیف 1 مینویسه حالا سوال من اینه که باید چی اضافه کنیم که علاوه بر این اگه تو اینها فولدر هم بود زیرفولدرهای اون رو هم بنویسه ؟