请问在asp里怎么批量删除文件

wolfer008 2006-01-06 02:39:54
我想删除web服务器上某个目录下的文件
该目录下文件名的格式是
用户id+年月日.dat

因为这个目录下可能有很多以当前用户id开头的文件
我想删除这些以当前用户id开头的文件
如何实现这个功能

先谢谢大家了
...全文
223 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
myvicy 2006-01-06
  • 打赏
  • 举报
回复
sub deletefile(path,id)
dim fs, folder,filename,i
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)

for each item in folder.Files
filename = MapURL(item.path)
if left(filename,len(id))=id then fs.DeleteFile filename ,True
delfilestr=delfilestr&filename&"<br>"
i=i+1
next

Response.Write("共删除了"&i&"个文件<br>以下是删除的文件列表:<br>"&delfilestr)
end sub
试一下,path为路径,id为要删除的用户id。
银狐被占用 2006-01-06
  • 打赏
  • 举报
回复
用FSO,取出文件名前几位,有一样的就删!!!
tigerwen01 2006-01-06
  • 打赏
  • 举报
回复
使用FileSystemObject对象的deleteFIL
参考:
http://bbs.130700.com/dispbbs.asp?boardid=21&ID=1038&replyID=&page=1
KimSoft 2006-01-06
  • 打赏
  • 举报
回复
楼主查查文档,自己写,会有进步的。
singit3 2006-01-06
  • 打赏
  • 举报
回复
path="1.dat"
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath(path)
set objFolder=fso.GetFolder(path)'创建文件夹对象
set objFiles=objFolder.Files
for each objFile in objFiles
if lcase(right(objFile.name,3))="dat" and instr(objFile.name,id)>0 then
fso.deletefile(objFile)
end if
next
set objFolder=nothing
set fso=nothing
列出全部dat文件,然后判断是否含有ID,如果含有ID就删除,不知道这是不是你想要的!
lonaerd 2006-01-06
  • 打赏
  • 举报
回复
看一下FSO的帮助,很简单的。 自己在google里搜索,大把例子

28,406

社区成员

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

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