Create Folder

[skinny220]

Does anyone know a VBA that will create a folder called Data Import into my C: if its not already created?

 

[ParamRay]

.
.

Do it like this:

Sub MakeDirectory()
  Const strDIR As String = "C:\Data Import"
  If Dir$(strDIR, vbDirectory) = vbNullString Then
    MkDir strDIR
  End If
End Sub

 

[skinny220]

GPeaCock,

Thanks for all your assistance.

 

[skinny220]

Does any one know how I could add a message box to below VBA to let me know if Data Import folder already exist on C: Directory?

Sub MakeDirectory()
Const strDIR As String = "C:\Data Import"
If Dir$(strDIR, vbDirectory) = vbNullString Then
MkDir strDIR
End If
End Sub

 

[Joe4]

Sub MakeDirectory()
  Const strDIR As String = "C:\Data Import"
  If Dir$(strDIR, vbDirectory) = vbNullString Then
    MkDir strDIR
  Else 
    MsgBox strDir & " directory already exists!"
  End If
End Sub

 

[skinny220]

Thank you it worked perfectly.

 

[Darren Bartrup]

An alternative method - will create the folder if it doesn't exist, and not create it if it does:

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Procedure : CreateFolder | Sub
'// Author    : DarkSprout
'// Purpose   : Will Recursively Build A Directory Tree
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub CreateFolder(Folder)
On Error Resume Next
Dim objFSO As Object: Set objFSO = CreateObject("Scripting.FileSystemObject")
    If Folder <> "" Then
        If Not objFSO.FileExists(objFSO.GetParentFolderName(Folder)) Then
            Call CreateFolder(objFSO.GetParentFolderName(Folder))
        End If
        objFSO.CreateFolder (Folder)
    End If
End Sub


Sub Test()


    CreateFolder "S:\Bartrup-CookD\AFolder"


End Sub