<p>asp fso删除文件DeleteFile与文件夹DeleteFolder<br />
'==============================<br />
'函 数 名：DelFolder<br />
'作 用：删除文件夹<br />
'参 数：文件夹相对路径FolderPath<br />
'==============================<br />
Function DelFolder(FolderPath)<br />
If IsFolder(FolderPath)=True Then<br />
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")<br />
Fso.DeleteFolder(Server.MapPath(FolderPath))<br />
Set Fso=Nothing<br />
End If<br />
' Select Case Err <br />
' Case 424 Response.Write("方卡错误提示：删除"&FolderPath&"文件夹时，路径未找到或者该目录没有写入权限！")<br />
' End Select<br />
End Function<br />
<br />
'==============================<br />
'函 数 名：DelFile<br />
'作 用：删除文件<br />
'参 数：文件相对路径FilePath<br />
'==============================<br />
Function DelFile(FilePath)<br />
' On Error Resume Next<br />
If IsFile(FilePath)=True Then<br />
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")<br />
Fso.DeleteFile(Server.MapPath(FilePath))<br />
Set Fso=Nothing<br />
End If<br />
' Select Case Err <br />
' Case 424 Response.Write("方卡错误提示：删除"&FilePath&"文件时，路径未找到或者该目录没有写入权限！")<br />
' End Select<br />
End Function</p>