如何判断指定目录是否为空

qq342252004 · 发表于 2009-9-13 11:20:15

本帖最后由 qq342252004 于 2009-9-13 20:47 编辑

问题如题

netegg · 发表于 2009-9-13 11:22:07

本帖最后由 netegg 于 2009-9-13 11:25 编辑

调用dos吧，用deltree，出错既不为空
或者走个枚举-----目录里的文件和文件夹都能循环一遍

qq342252004 · 发表于 2009-9-13 11:31:57

这个deltree命令如何使用？我不要删除文件夹。

netegg · 发表于 2009-9-13 13:37:24

保留空文件夹？

afan · 发表于 2009-9-13 14:31:49

If DirGetSize('目录') = 0 then msgbox(0,0,'空')

FBWOLF · 发表于 2009-9-13 14:47:37

本来很简单的一条代码！蛋蛋哥思路复杂！想得多了！

qq342252004 · 发表于 2009-9-13 15:41:45

If DirGetSize('目录') = 0 then msgbox(0,0,'空')
afan 发表于 2009-9-13 14:31

afan · 发表于 2009-9-13 15:50:27

8# qq342252004

子目录也是空啊，空里有空不还是空...

硬要啥都没有：

$a = DirGetSize('目录', 1)
If Not @error Then
     If $a[0] = 0 And $a[2] = 0 then msgbox(0,0,'非常空，真空')
Endif

jhwl · 发表于 2009-9-13 16:16:33

_emtyfolder("D:\jhwl")
Func _emtyfolder($searchdir)
        $search = FileFindFirstFile($searchdir & "\*.*")
        If $search = -1 Then MsgBox(0, "", $searchdir & @CRLF&"=>此目录为空")
        While 1
                $file = FileFindNextFile($search)
                If @error Then
                        FileClose($search)
                        Return
                ElseIf $file = "." Or $file = ".." Then
                        ContinueLoop
                Else
                        _emtyfolder($searchdir & "" & $file)
                EndIf
        WEnd
EndFunc   ;==>_emtyfolder

qq342252004 · 发表于 2009-9-13 20:47:15

问题终于完美的解决了

你们太热心了论坛的发展离不开你们！！！论坛是不是帮Google买广告？是的话我一有时间就帮忙点击。

		自动登录	找回密码
密码			加入