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

关注

原创最新推荐文章于 2025-11-10 17:52:19 发布 786 阅读 AI 写同款· GEO 优化 ›

查看空间是否支持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
%>

收录于