如何判断某个目录下是否为空(有下级目录但里面没有文件或者该目录下没有文件),如果为空则删除该目录,如果不空则不能删除!

好记忆不如烂笔头abc 2004-12-08 10:10:17
如何判断某个目录下是否为空(有下级目录但里面没有文件或者该目录下没有文件),如果为空则删除该目录,如果不空则不能删除!

有些难度,谢谢!
...全文
138 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
需要具体一点的代码,有高手会吗?
回复
comszsoft 2004-12-08
统一楼上
回复
tatty_bad 2004-12-08
FSO遍历之后,没有数据则直接删除就OK了。。
回复
hhjjhjhj 2004-12-08
给你想到了一个简单的。fd.size=0就是无文件。
function DelDir(sPath)
dim fso,fd
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetFolder(sPath)
if fd.size=0 then '无文件
.....

回复
hhjjhjhj 2004-12-08
http://community.csdn.net/Expert/topic/3183/3183074.xml?temp=.7244379
回复
ygjwjj 2004-12-08
如果是客户端执行,可去掉'注释部分.
function DelDir(sPath)
dim fso,f,fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPath)
Set fc = f.Files
if fc.Count>0 then
'dim ans
'ans=MsgBox("不为空,删除吗?",vbOKCancel)
'if ans=vbOK then
f.Delete
'end if
end if
set fc=nothing
set f=nothing
set fso=nothing

end function


DelDir "e:\\test"
回复
up
回复
和要求不一致呀,兄弟!
回复
888228 2004-12-08
调用方法:

<%=Spacess("./images")%>
回复
888228 2004-12-08
给你这个,我自己写的。
'----------------------------检查目录占用情况函数--------------------------------------------
Function Spacess(filepath)
On Error Resume Next
set fso=server.createobject("scripting.filesystemobject")
set Files=fso.getfolder(server.mappath(filepath))
if Err <> 0 Then Spacess="该空间不支持FSO组件,无法计算空间占用情况!"
if Files.size < 1048576 Then
Spacess = Round((Files.size/1024),2)&" KB"
elseif Files.size > 1048576 and Files.size < 1073741824 Then
Spacess = Round((Files.size/1048576),2)&" MB"
else
Spacess = Round((Files.size/1073741824),2)&" GB"
end if
End Function
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-08 10:10
社区公告
暂无公告