双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何判断某个目录下是否为空（有下级目录但里面没有文件或者该目录下没有文件），如果为空则删除该目录，如果不空则不能删除！

2004-12-08 10:10:17 251 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

好记忆不如烂笔头abc 墨衍会员 · AI 创作全网分发关注 + 加入社区

Windows 上安装 Everything：快速查找电脑上的文件 windows 快速查找文件阅读详情

如何判断某个目录下是否为空（有下级目录但里面没有文件或者该目录下没有文件），如果为空则删除该目录，如果不空则不能删除！

有些难度，谢谢！

...全文

Ubuntu下OpenOCD+GDB的安装、编译及使用目标开发板（芯片）：stm32mp157aaa 仿真器：ST-Link 操作系统：Ubuntu 18.04 调试软件：OpenOCD OpenOCD的安装首先下载OpenOCD有多种方式，可以GitHub上下载，目录下打开终端，输入 git clone git://git.code.sf.net/p/openocd/code openocd 下载完整的OpenOCD的文件夹。进入到OpenOCD的目录下，开始安装。接着，OpenOCD适用于微处理器的debug和烧写，需要下载相关库 sud 阅读详情

好记忆不如烂笔头abc

ASP 28,401 成员 356,938 内容

+ 关注 + 加入社区

切换为时间正序

好记忆不如烂笔头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 '无文件
.....

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"

好记忆不如烂笔头abc 2004-12-08

打赏
举报

好记忆不如烂笔头abc 2004-12-08

打赏
举报

和要求不一致呀，兄弟！

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

✦双11狂欢大促✦

如何判断某个目录下是否为空（有下级目录但里面没有文件或者该目录下没有文件），如果为空则删除该目录，如果不空则不能删除！

相关推荐

双11狂欢大促