CreateDir

'The following code can be used to create an entire directory tree

'if it is missing:


Declare Function MakeSureDirectoryPathExists _
Lib "IMAGEHLP.DLL" (ByVal DirPath As String) As Long

Sub CreatePath(MyPath As String)
Dim bResult As Integer
bResult = MakeSureDirectoryPathExists(MyPath)
If bResult = 0 Then
MsgBox "MakeSureDirectoryPathExists Failed."
Else
MsgBox MyPath & " created."
End If
End Sub