Function FolderExists(Folder As String) As Boolean
   On Error Resume Next
   FolderExists = False
   FolderExists = Dir(Folder, vbDirectory) <> ""
End Function
 
Function MakeDir(Folder As String)
    Dim intPos As Integer
    Dim strF As String
    intPos = 0
    On Error Resume Next
    Do
        intPos = InStr(intPos + 1, Folder, "\")
        strF = Left(Folder, intPos)
        MkDir (strF)
    Loop Until intPos = 0
 
End Function