如何删除根目录下的所有文件,包括文件夹

dwh0722 2004-09-16 11:00:03
如题:(要代码)

如何删除根目录下的所有文件,包括文件夹
...全文
477 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
BILLSJONE 2004-09-17
  • 打赏
  • 举报
回复
友情up
iuhxq 2004-09-17
  • 打赏
  • 举报
回复
估计是不支持FSO

上面我的代码在很多机器试过,保证好用
dwh0722 2004-09-17
  • 打赏
  • 举报
回复
怎么大家的代码都报这样的错呀:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

服务器对象 错误 'ASP 0177 : 80040111'

Server.CreateObject 失败

/a.asp,行2

ClassFactory 无法供应请求的类别
DARKNESSFALL 2004-09-17
  • 打赏
  • 举报
回复
<%
function DeleteFile(Filename)
if Filename<>"" then
Set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Filename) then
fso.DeleteFile Filename
end if
set fso = nothing
end if
end function
%>
kingapex1 2004-09-17
  • 打赏
  • 举报
回复
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.mappath("dd"))

f.delete

set fso = nothing
set f =nothing
%>
satans18 2004-09-17
  • 打赏
  • 举报
回复
可惜在网吧,不然给你发段好代码
iuhxq 2004-09-17
  • 打赏
  • 举报
回复
把下列代码存成d.asp放到IIS根目录下

<%
set fso=server.CreateObject("scripting.filesystemobject")
folderspec=server.mappath("./")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
fso.deletefolder(folderspec&"/"&f1.name)
Next

Set fc = f.Files
For Each f1 in fc
filename=f1.name
if filename<>"d.asp" then fso.deletefile(folderspec&"\"&filename)
Next
set fso=nothing
%>
dsclub 2004-09-16
  • 打赏
  • 举报
回复
FSO
efei 2004-09-16
  • 打赏
  • 举报
回复
FSO有删除整个目录的功能,全部删除的,不用遍历
guoweidong 2004-09-16
  • 打赏
  • 举报
回复
Set WXFso = CreateObject("Scripting.FileSystemObject")
cpath = Server.MapPath("/")
Set theFolder = WXFso.GetFolder(cpath)
For Each objFile in theFolder.Files
WXFso.DeleteFile(objFile.name)
Next

28,389

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧