kingxxg 发表于 2012-4-11 18:44:43

怎么统计一个文件夹下面有多少个文件夹和文件啊！

怎么统计一个文件夹下面有多少个文件夹和文件啊！
代码如何写哦！
谢谢！！

user3000 发表于 2012-4-11 18:54:13

回复 1# kingxxg

下面是帮助里的文件搜索例子, 研究修改下就能达到你的目的了!;=============================
;例子1:显示当前目录中所有文件的文件名
;=============================
Local $hSearch = FileFindFirstFile("*.*")

; 检查搜索是否成功
If $hSearch = -1 Then
        MsgBox(0, "错误", "没有文件/目录 匹配搜索")
        Exit
EndIf

While 1
        Local $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop

        MsgBox(4096, "找到的文件:", $sFile)
WEnd

; 关闭搜索句柄
FileClose($hSearch)

;=============================
;例子2:递归查找当前目录及其子目录下的所有文件
;=============================
FindAllFile(@ScriptDir)
Func FindAllFile($sDir)
        Local $hSearch = FileFindFirstFile($sDir & "\*.*")
        ; 检查搜索是否成功
        If $hSearch = -1 Then Return
        While 1
                Local $sFile = FileFindNextFile($hSearch)
                If @error Then ExitLoop
               
                If @extended Then
                        FindAllFile($sDir & "\" & $sFile)
                        ContinueLoop
                EndIf
                FileWriteLine("找到的文件.txt",$sDir & "\" & $sFile)
        WEnd
        ; 关闭搜索句柄
        FileClose($hSearch)
EndFunc

kingxxg 发表于 2012-4-11 19:01:45

我想统计文件夹有多少个就可以，不需要浏览都是什么文件夹！

502762378 发表于 2012-4-11 19:06:00

何必这么认真呢楼上两位

lxzan 发表于 2012-4-11 19:30:42

帮顶......

user3000 发表于 2012-4-11 20:38:13

回复 4# 502762378

不认真学什么编程?
如果想得到原码, 那应该发到交易区!
肯出钱那肯定也会得偿所愿!

xms77 发表于 2012-4-11 21:03:15

回复 3# kingxxg
#include <file.au3>
$Folders = _FileListToArray(@ScriptDir,"*",2) ;获取文件夹列表
If Not @error Then MsgBox(0,"文件夹数量有",$Folders)

kingxxg 发表于 2012-4-12 23:01:23

十分感谢！！
页: [1]
查看完整版本: 怎么统计一个文件夹下面有多少个文件夹和文件啊！