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

%>