اريد كود انشاء مجلد على سطح المكتب

[محمد الورفلي1]

السلام عليكم

كيف يمكن انشاء مجلد على سطح المكتب عن طريق الاكسيل

 

 

 

 

انشاء مجلد على سطح المكتب.rar

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي .. وكل عام وأنت بخير أخي الكريم محمد

Sub CreateFolderOnDesktop()
    Dim strDir As String
    
    strDir = Environ("USERPROFILE") & "\Desktop\Test\"
     
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory Exists", 64
    End If
End Sub

 

[محمد الورفلي1]

3 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام

جرب الكود التالي .. وكل عام وأنت بخير أخي الكريم محمد

Sub CreateFolderOnDesktop()
    Dim strDir As String
    
    strDir = Environ("USERPROFILE") & "\Desktop\Test\"
     
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
    Else
        MsgBox "Directory Exists", 64
    End If
End Sub

 

 

وانت واسرتك الكريمة بالف خير

شكراً استاذ ياسر الكود يعمل بكفاءة عالية