<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>'删除文件函数:
Sub DeleteFile(FileName)
'首选判断要建立的文件夹是否已经存在
Dim strTestFile, objFSO
strTestFile = Server.Mappath(FileName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查文件是否存在
If objFSO.FileExists(strTestFile) Then
objFSO.DeleteFile(strTestFile)
Else
response.write "<h1><font color=red>该文件夹不存在!</font></h1>"
End If
Set objFSO = Nothing
End Sub <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>
Sub DeleteFile(FileName)
'首选判断要建立的文件夹是否已经存在
Dim strTestFile, objFSO
strTestFile = Server.Mappath(FileName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查文件是否存在
If objFSO.FileExists(strTestFile) Then
objFSO.DeleteFile(strTestFile)
Else
response.write "<h1><font color=red>该文件夹不存在!</font></h1>"
End If
Set objFSO = Nothing
End Sub <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>