-
本版专家分：12结帖率 50% -
浏览器地址：
http://localhost/Html/a/b/4041.asp
通过获取浏览器地址，
requestURL=Request.ServerVariables("QUERY_STRING")
response.Write(requestURL)
得到：
/Html/a/b/4041.asp
我想实现：
如果html、a、b文件夹不存在，依次就创建该路径的三个文件夹，
即：网站根目录下，创建一个文件夹叫html，“html”文件夹里又创建“a”文件夹，“a”文件夹里又创建了b文件夹。
如果其中文件夹已经存在，则跳过，不创建。
请问ASP程序要怎么实现？
也就是说，我根据每次浏览器的不同地址，创建该浏览器地址所需要的文件夹。
如果当浏览器地址是http://localhost/a/b/4041.asp时，网站根目录下，“a”和“b”两个文件夹则帮我创建这两个文件夹，即创建a文件夹，并在a文件夹里又创建了b文件夹。
依此类推。
谢谢大神们。
-
本版专家分：130 -
SavePath = "/html/a/b/c/"
CreateFolder SavePath '文件夹不存则会创建'
Function CreateFolder(byval s)
Dim Fso,upPath,path
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(Server.MapPath(s)) Then Exit Function
upPath = Replace(Server.MapPath(s),Server.MapPath("/"),"")
upPath = Replace(upPath,"\","/")
If left(upPath,1)<>"/" Then
upPath = "/"&upPath
End If
If right(upPath,1)<>"/" Then
upPath = upPath&"/"
End If
Folder_arr = split(upPath,"/")
path = ""
For i = 1 To Ubound(Folder_arr)-1
path = path&"/"&Folder_arr(i)
Set objFolder = Server.CreateObject("Scripting.FileSystemObject")
If Not objFolder.FolderExists(Server.MapPath(path)) Then
objFolder.CreateFolder(Server.MapPath(path))
End If
Set objFolder = Nothing
Next
Set Fso = Nothing
End Function
-
本版专家分：17192 -
FSO中有个方法是CreateFolder,但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便.
函数:
' --------------------------------
' 自动创建指定的多级文件夹
' strPath为绝对路径
' 引用请保留版权
' by im286_Anjer
' 2005-4-3
Function AutoCreateFolder(strPath) ' As Boolean
On Error Resume Next
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
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 Function
调用方法:
MyPath = "C:\a\b\c\"
If AutoCreateFolder(MyPath) Then
Response.Write "创建文件夹成功"
Else
Response.Write "创建文件夹失败"
End If
