FSO删除，及其其他功能用法，及其在windows系统中应用

查看空间是否支持FSO
Function IsObjInstalled(strClassString)
 On Error Resume Next
 IsObjInstalled = False
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
End Function


<% if IsObjInstalled("Scripting.FileSystemObject") = False Then %>


不支持FSO


<% Else %>


支持FSO


<% End If %>

【原创】http://lychome.taobao.com  禁止用于营利

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


'程序名：delfile.asp
'关键参数：struploadfiles 文件名称 
例：<a href="/delfile.asp?action=test.rar">删除test.rar文件</a>


<%
struploadfiles=trim(request.querystring("struploadfiles"))
action=trim(request.querystring("action"))
response.write "成功删除<font color=red>"&struploadfiles&"</font>文件!"
call delfiles(struploadfiles & "")
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
response.write"this.location.href='javascript:history.back();'</script>"
end sub
%>


====================================================================================


Function DeleFile(FilePath)
    On Error Resume Next
    Set Del=Server.CreateObject("Scripting.FileSystemObject")
    if Err <> 0 Then 
        DelFile="该空间不支持FSO组件，无法删除文件！"
    else
        if InStr(FilePath, ",") > 0 then
            FilePath=Split(FilePath,",")
            For i = 0 to ubound(FilePath)
                If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Server.MapPath(FilePath(i)),true
            Next
        Else
            If Del.FileExists(Server.MapPath(FilePath))=True Then Del.DeleteFile Se


=================================================================================


二、FSO删除文件方法：DeleteFile
调用格式：




 程序代码
FileSystemObject名.DeleteFile 被删除的文件 [, 是否强制删除]




注意事项：


被删除的文件：必须是已存在的文件，否则会产生“找不到源文件”的错误(错误编码：53) 
是否强制删除：若文件属性为“只读”，必须将这个参数设置为True，方可删除，否则则会产生“没有使用权限”的错误（错误编码：70）;对于“被锁定”的文件，则不管如何，都会产生“没有使用权限”的错误。
源码实例：


删除与ASP文件同目录下的File1.txt。
程序如下：(DeleteFile.asp)




 程序代码
<%
'===================================================


'源码：FSO删除文件示例
'时间：2005年12月17日
'===================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
on Error Resume Next
fs.DeleteFile File, True '强制删除只读文件
If Err.Number = 53 Then
Response.Write File & "文件不存在！"
Response.End
Elseif Err.Number = 70 Then
Response.Write File & "文件属性为锁定状态！"
Response.End
Elseif Err.Number <> 0 Then
Response.Write "未知错误，错误编码：" & Err.Number
Response.End
Else
Response.Write "成功删除文件！" & File
End If
%>