<p>asp 创建文件与文件夹<br />
'==============================<br />
'函 数 名：CreateFolder<br />
'作 用：创建文件夹<br />
'参 数：文件夹相对路径FolderPath<br />
'==============================<br />
Function CreateFolder(FolderPath)<br />
' On Error Resume Next<br />
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")<br />
Set F=Fso.CreateFolder(Server.MapPath(FolderPath))<br />
CreateFolder=F.Path<br />
Set F=Nothing<br />
Set Fso=Nothing<br />
' Select Case Err<br />
' Case 424 Response.Write("方卡错误提示：创建"&FolderPath&"文件夹时，路径未找到或者该目录没有写入权限！")<br />
' End Select<br />
End Function<br />
<br />
'==============================<br />
'函 数 名：CreateFile<br />
'作 用：创建文件<br />
'参 数：文件相对路径FilePath，文件内容FileContent<br />
'==============================<br />
Function CreateFile(FilePath,FileContent)<br />
' On Error Resume Next<br />
Dim Temps<br />
Temps=""<br />
TempArr=Split(FilePath,"/")<br />
For i=0 to UBound(TempArr)-1<br />
If Temps="" Then<br />
Temps=TempArr(i)<br />
Else<br />
Temps=Temps&"/"&TempArr(i)<br />
End If<br />
If IsFolder(Temps)=False Then<br />
Call CreateFolder(Temps)<br />
End If<br />
Next<br />
Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")<br />
objAdoStream.Type = 2<br />
objAdoStream.Charset = "UTF-8"<br />
objAdoStream.Open<br />
objAdoStream.WriteText = FileContent<br />
objAdoStream.SaveToFile Server.MapPath(FilePath),2<br />
objAdoStream.Close()<br />
Set objAdoStream = Nothing<br />
' Select Case Err <br />
' Case 424 Response.Write("方卡错误提示：创建"&FilePath&"文件时，路径未找到或者该目录没有写入权限！")<br />
' End Select<br />
End Function</p>