怎么判断一个文件夹是否为空啊……？

[吾非大神]

怎么判断一个文件夹是否为空啊……？
我的程序因为某时出错会建一个空的文件夹，我想判断一下这个文件夹如果为空就将他删除
该用什么命令呢？！
只是知道if dir(filename,vbdirectory) = "" then 这是判断当前文件夹是否存在，可是这个文件夹为空怎么判断呢？！

[su47flying]

通过文件夹的大小判断。

[zhuanzhu_zhizhuo]

帮顶

[bcfxbcfx]

好像有一个叫findnextfile这个API,可以查找文夹内的所有文件,如果没有查到就说明为空.

[hn123]

FSO上 FSO方法列表

方法：FileExists
语法：对象名.FileExists(文件名)
说明：如果指定的文件存在，则返回TURE，否则返回FLASH。

------------
www.vicmiao.com
努力就有美好时光!

[zhuanzhu_zhizhuo]

顶下哈
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
'
If fs.FolderExists("D:\TEST\滚蛋\file1") = True Then
Label1.Caption = "此文件夹存在"
End If
只是知道这个能判断文件是否存在，是否为空就不得而知了

[还想懒够]

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists("C:\Test") = False Then
MsgBox "文件夹不存在！"
Exit Sub
End If


If fso.GetFolder("C:\Test").Files.Count > 0 Then
MsgBox "不为空"
End If


fso.GetFolder("C:\Test").Delete True

[zhuanzhu_zhizhuo]

致jjkk168(老加班的人--好好学习,天天吃饭) ：

可是如果里面是文件夹，而没有文件怎么办呢

[zhuanzhu_zhizhuo]

帮顶一下哈

[GoldFox]

直接用 if dir(filename) = "" then 判断就可以了啊
文件夹下没有文件,则是空文件夹

[hpygzhx520]

用dir *.*,返回的内容只有两个的话就为空。一个是.一个是..

[zhuanzhu_zhizhuo]

这是判断的参数指定的文件夹是否存在，而不是判断文件夹是否为空

[思诺赛克]

up

[还想懒够]

//致jjkk168(老加班的人--好好学习,天天吃饭) ：

//可是如果里面是文件夹，而没有文件怎么办呢


if fso.GetFolder("C:\Test").SubFolders.Count>0 Then
Msgbox "有子文件夹"
End if

[dlh_007]

Dim fso As FileSystemObject '先引用Microsoft Scripting Runtime

If fso.GetFolder(文件夹).Size > 0 Then '文件夹不为空
...
End If

[Akun22]

收藏