主题:求如何循环删除文件,.
yanjinbin
[专家分:130] 发布于 2006-12-19 14:49:00
谁有教程告诉下,自己写 实在找不到那出错了.
回复列表 (共10个回复)
沙发
oyh484203 [专家分:5890] 发布于 2006-12-19 17:15:00
百度搜
板凳
liulei001 [专家分:12820] 发布于 2006-12-19 17:30:00
循环删除的效率太低了,建议还使用SQL语句一次性删除。
3 楼
yanjinbin [专家分:130] 发布于 2006-12-20 09:13:00
循环效率底 讨论下.
我是要删除一个文件夹里面的文件,
除了循环删除,难道还有别的删除方法吗?
sql 只能删除文件里面的记录啊,能删除文件吗?
兄弟你误解了我的意思,或又是我误解了你的意思.
4 楼
一个人住 [专家分:3290] 发布于 2006-12-20 09:23:00
那你就直接删除文件夹了~~~~
5 楼
yanjinbin [专家分:130] 发布于 2006-12-20 09:46:00
一个一个删 碰到文件多那不要人命啊。
6 楼
nckggood [专家分:1020] 发布于 2006-12-20 13:04:00
[quote]那你就直接删除文件夹了~~~~[/quote]
用程序删除文件夹要先把里面的文件都删除了才能再去删除文件夹,就算你在WINDOWS下用鼠标删除文件夹,WINDOWS程序也是先把里面的文件删除了,再去删除文件夹........
7 楼
yanjinbin [专家分:130] 发布于 2006-12-20 14:39:00
晕倒. 还是没看到你说的是删除文件夹,
那文件夹是让别人上传文件存放的地方.
8 楼
yanjinbin [专家分:130] 发布于 2006-12-20 14:43:00
不是说删 就能删 的.
9 楼
nckggood [专家分:1020] 发布于 2006-12-20 16:48:00
<%@ Language=VBScript %>
<%
'我写的一个遍历目录以及目录下文件的函数,
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
nowpath=path + "\" + objSubFolder.name
Response.Write nowpath
set objFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>
这是这几天找到遍历目录代码,对楼主的问题可能有所帮助.代码我没测试过,但看他的算法是正确的.
10 楼
liulei001 [专家分:12820] 发布于 2006-12-20 17:29:00
如果是用SQL数据库,调用SQL系统自带的cmdshell存储过程,省事。
也不用创建FSO对象。
我来回复