'requires reference to Microsoft Scripting Runtime
Function MkDir(ByVal strDir As String, ByVal strPath As String)
      Dim fso As New FileSystemObject
      Dim path As String
    path = strPath & strDir
    If Not fso.FolderExists(path) Then
        fso.CreateFolder path
    End If
End Function