函数:ZTxHTML5中文学习网 - HTML5先行者学习网

  ' --------------------------------
  ' 自动创建指定的多级文件夹
  ' strPath为绝对路径
  ' 引用请保留版权
  ' by im286_Anjer
  ' 2005-4-3
  Function AutoCreateFolder(strPath) ' As Boolean
On Error Resume NextZTxHTML5中文学习网 - HTML5先行者学习网

Dim astrPath, ulngPath, i, strTmpPath
Dim objFSOZTxHTML5中文学习网 - HTML5先行者学习网

If InStr(strPath, "/") <=0 Or InStr(strPath, ":") <= 0 Then
AutoCreateFolder = False
Exit Function
End If
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strPath) Then
AutoCreateFolder = True
Exit Function
End If
astrPath = Split(strPath, "/")
ulngPath = UBound(astrPath)
strTmpPath = ""
For i = 0 To ulngPath
strTmpPath = strTmpPath & astrPath(i) & "/"
If Not objFSO.FolderExists(strTmpPath) Then
' 创建
objFSO.CreateFolder(strTmpPath)
End If
Next
Set objFSO = Nothing
If Err = 0 Then
AutoCreateFolder = True
Else
AutoCreateFolder = False
End If
  End FunctionZTxHTML5中文学习网 - HTML5先行者学习网

  调用方法:ZTxHTML5中文学习网 - HTML5先行者学习网

  MyPath = "C:/a/b/c/"
  If AutoCreateFolder(MyPath) Then
Response.Write "创建文件夹成功"
  Else
Response.Write "创建文件夹失败"
  End IfZTxHTML5中文学习网 - HTML5先行者学习网