Check for folder; create if it does not exist

[BlueDNA]

Hi,

im quite new too. try this

Public Sub createNewDirectory(directoryName As String)
If Not DirExists(directoryName) Then 
MkDir (directoryName)
End If
End Sub
 
Function DirExists(DirName As String) As Boolean
On Error GoTo ErrorHandler
DirExists = GetAttr(DirName) And vbDirectory 
ErrorHandler: 
End Function

hope this helps