پرسش ساخت فولدر

[hesabrainian253]

سلام و عرض ادب خدمت همه اساتید محترم

نیاز به یه فرمول دارم كه ممنون میشم اگه دوستان راهنمایی بفرمایند

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

[generalsamad]

با سلام
نام پوشه را در سلول A2 وارد کرده و مسیر مورد نظر را در سلول B2 وارد کنید
در سلول B2 مثال اینطور وارد میکنیم:

D:\samad 

Sub MakeMyFolder()
    Dim fdObj As Object
    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists(Range("B2") & "\" & Range("A2")) Then
        MsgBox Range("A2") & " Folder exists in the desired path", vbInformation, "پيغام سيستم"
    Else
        fdObj.CreateFolder (Range("B2") & "\" & Range("A2"))
        MsgBox Range("A2") & " Folder was created successfully", vbInformation, "پيغام سيستم"
    End If
    Application.ScreenUpdating = True
End Sub