28,409
社区成员
发帖
与我相关
我的任务
分享如何判断某个目录下是否为空（有下级目录但里面没有文件或者该目录下没有文件），如果为空则删除该目录，如果不空则不能删除！
如何判断某个目录下是否为空（有下级目录但里面没有文件或者该目录下没有文件），如果为空则删除该目录，如果不空则不能删除！
有些难度，谢谢！
有些难度，谢谢！
...全文
请发表友善的回复…
发表回复
好记忆不如烂笔头abc 2004-12-08
- 打赏
- 举报
需要具体一点的代码，有高手会吗?
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 '无文件
.....
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"
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"
好记忆不如烂笔头abc 2004-12-08
- 打赏
- 举报
up
好记忆不如烂笔头abc 2004-12-08
- 打赏
- 举报
和要求不一致呀，兄弟！
888228 2004-12-08
- 打赏
- 举报
调用方法:
<%=Spacess("./images")%>
<%=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
'----------------------------检查目录占用情况函数--------------------------------------------
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
