用VBA判断某文件夹是否为空怎么实现

halfzx · 发表于 2013-1-26 15:09

“照片”文件夹和当前工作薄在同一目录中。用VBA判断“照片”文件夹是否为空，如果不为空执行过程“插入照片”，否则msgbox"找不到照片"，请不吝赐教，谢谢。坐等。。。。。。

Zamyi · 发表于 2013-1-26 15:31

p=thisworkbook.path &"\照片"
if CreateObject("scripting.FileSystemObject").GetFolder(p).Files.Count then msgbox"不空"

halfzx · 发表于 2013-1-26 16:29

学习了，3Q

halfzx · 发表于 2013-1-26 16:35

FilPath = ThisWorkbook.Path & "\照片\" & "*.jpg"
If Dir(FilPath) <> "" Then
插入照片
Else
MsgBox "没找到照片！"
End If
我这个瞎弄的

jwgroup · 发表于 2023-2-13 15:10

halfzx 发表于 2013-1-26 16:35
FilPath = ThisWorkbook.Path & "\照片\" & "*.jpg"
If Dir(FilPath) "" Then
插入照片

空文件夹的dir(FilPath)内容也不是空的，而是“.”和".."，因此还是用CreateObject的方法才能判断是不是空文件夹。

		自动登录	找回密码
密码			免费注册

[求助] 用VBA判断某文件夹是否为空怎么实现