زر امر في اليوزر فورم لانشاء مجلد جديد

[سك بابك]

هل من الممكن وضع زر امر على يوزر فورم من اجل انشاء مجلد جديد في الموقع الذي اريده سواءً في C او D

[جعفر الطريبق]

مثلا

Option Explicit

Private Sub CommandButton1_Click()
    Call MakeFolder("C:\", "MyNewFolder")
End Sub


Private Function MakeFolder(ByVal Root As String, ByVal NewFolderName As String) As String
    Dim oShell As Object
    
    Set oShell = CreateObject("Shell.Application").BrowseForFolder(0, "Please choose a folder and click Ok.", 0, Replace(Replace(Replace(Root, ":", ""), "\", "") & ":\", " ", ""))
    If Not oShell Is Nothing Then
        MkDir oShell.Self.Path & "\" & Replace(NewFolderName, "\", "")
    End If
End Function