Create Windows Folder (v2000)

Topic

New Reply

I am trying to add code to a command button to create a Windows Folder from a combo box. For instance, if the combo box reads ‘NewFolder’, I want the on-click event to create folder C:NewFolder.

The part where I am stuck is what code will actually create the folder.
Thanks!

Reply | Quote

Replies

Here’s one way that doesn’t require any special references or advanced coding.

On Error Resume Next

MkDir strDirName
If Err = 75 Then        
    ' the folder exists already
Else
    Err = 0
    ' try to create it again
    MkDir strDirName
    If Err = 75 Then
        ' the directory was created
    Else
        MsgBox "Error in Creating Folder: " & strDirName & ".",  _
                      vbExclamation, "Folder Create Failure"
    End If
End If 

Reply | Quote

Charlotte,
That was a huge help and it worked like a charm. Thanks a bunch!!

Reply | Quote

Here’s one way that doesn’t require any special references or advanced coding.

On Error Resume Next

MkDir strDirName
If Err = 75 Then        
    ' the folder exists already
Else
    Err = 0
    ' try to create it again
    MkDir strDirName
    If Err = 75 Then
        ' the directory was created
    Else
        MsgBox "Error in Creating Folder: " & strDirName & ".",  _
                      vbExclamation, "Folder Create Failure"
    End If
End If 

Reply | Quote