[求助]求一段用asp删除文件的例子代码!1

'**************************************************
'函数作用:删除文件
'参数说明：dFilePath 要删除的文件的绝对路径
'**************************************************
Sub FsoDelFile(dFilePath)
Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
If FsoObj.FileExists(dFilePath) then
FsoObj.DeleteFile dFilePath,true
Else
AlertMsg="要删除的文件不存在"
End If
Set FsoObj = Nothing
End Sub
'**************************************************
'函数作用:删除文件夹
'参数说明：dFolderPath 要删除的文件夹的绝对路径
'**************************************************
Sub FsoDelFolder(dFolderPath)
Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
If FsoObj.FolderExists(dFolderPath) then
FsoObj.DeleteFolder dFolderPath,true
Else
AlertMsg="要删除的文件夹不存在"
End If
Set FsoObj = Nothing
End Sub

[此贴子已经被作者于2007-3-21 15:00:08编辑过]

谢谢!