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

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

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

问题如题:face (9):

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 http://www.autoitx.com/images/common/back.gif

目录下有子目录还是提示空啊:face (13):

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

8# qq342252004


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

硬要啥都没有：$a = DirGetSize('目录', 1)
If Not @error Then
   If $a = 0 And $a = 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

问题终于完美的解决了 :face (33):你们太热心了论坛的发展离不开你们！！！ 论坛是不是帮Google买广告？是的话我一有时间就帮忙点击。
页: [1]
查看完整版本: 如何判断指定目录是否为空