Private Function CheckOrCreatePath( ByVal path )
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    Dim parts
    parts = Split( path, "\" )
    path = ""
    For Each part in parts
      path = path + part + "\"
      If fs.FolderExists( path ) = False Then
        fs.CreateFolder( path )
      End If
    Next
  End Function

Private Function CheckOrCreatePath( ByVal path )
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    Dim parts
  Dim root : root = Server.mappath("/") & "\"
    'parts = Split( path, "\" )
  parts = Split( Replace(path, root, ""), "\" )
    'path = ""
  path = root
    For Each part in parts
      path = path + part + "\"
      If fs.FolderExists( path ) = False Then
        fs.CreateFolder( path )
      End If
    Next
  End Function