السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله
هل فكرت يوماً ما في إنشاء العديد والعديد من المجلدات وبداخل تلك المجلدات مجلدات فرعية وهكذا ...؟
اليوم في هذا الموضوع سأضع لكم كود رائع يقوم بذلك من خلال الـ VBA والكود يوفر الكثير من الوقت والجهد وينشيء تلك المجلدات بكل دقة.
من أجل الحصول على نتائج مضبوطة ستقوم بوضع المجلدات الرئيسية في العمود الأول وفي العمود الثاني المستوى الثاني (المجلدات الفرعية الأولى) وفي العمود الثالث المستوى الذي يليه وهكذا ..

سأضع لكم صورة توضيحية لتتضح صورة الشكل النهائي لورقة العمل كمثال:



** نلاحظ في العمود الأول سيتم إنشاء عدد 2 مجلد رئيسي الأول باسم ABC والثاني باسم Yasser

** المجلد ABC سيتم إنشاء عدد 2 مجلد بداخله الأول باسم DE و FG

** المجلد DE سيتم إنشاء مجلد بداخله باسم HI وداخله مجلد NO وداخله PQ (سلسلة مجلدات فرعية)

** المجلد FG سيتم إنشاء مجلدين الأول باسم JK والثاني باسم LM

خلاصة القول أنه يمكن إنشاء أي عدد من المجلدات الرئيسية وأي عدد من المجلدات الفرعية لأي عدد من المستويات

#If Win64 Then
    Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean
#Else
    Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean
#End If

Sub Create_Folders_SubFolders_Limitless()
    Dim objRow As Range, objCell As Range, strFolders As String
    For Each objRow In ActiveSheet.UsedRange.Rows
        strFolders = ThisWorkbook.Path & ""
        For Each objCell In objRow.Cells
            strFolders = strFolders & "" & objCell
        Next objCell
        strFolders = strFolders & ""
        MakeSureDirectoryPathExists strFolders
    Next objRow
End Sub

تحميل الملف المرفق من هنا

أرجو أن يكون الموضوع ذات إفادة لكم إن شاء العلي القدير

أخوكم في الله / ياسر خليل أبو البراء