找回密码
 加入
搜索
查看: 1213|回复: 7

有没有获取目录中目录数目的函数?

[复制链接]
发表于 2009-3-16 15:48:03 | 显示全部楼层 |阅读模式
举个例子
D:\foder中有多个文件夹,那么我有没有办法可以获取其中的文件夹数目?除了我进去数数.

高手赐教! 不胜感激!!!

[ 本帖最后由 spkljl 于 2009-3-17 08:22 编辑 ]
发表于 2009-3-16 16:50:03 | 显示全部楼层
dir /a:d
 楼主| 发表于 2009-3-16 22:10:06 | 显示全部楼层
请楼上这位大哥给说明白些好吗?小弟没有看懂。谢谢啦

[ 本帖最后由 spkljl 于 2009-3-16 22:11 编辑 ]
 楼主| 发表于 2009-3-16 22:17:11 | 显示全部楼层
百度了一下发现这个命令是显示目录。那请问有没有办法返回这个目录数到一个变量???
发表于 2009-3-17 07:23:33 | 显示全部楼层
dir /b /ad|find /c /v ""
 楼主| 发表于 2009-3-17 08:13:15 | 显示全部楼层
真是高手众多啊。我不会DOS,直接学的AUTOIT,现在看来很有必要再回头学学DOS了啊。
发表于 2009-3-17 09:35:57 | 显示全部楼层
能移植到autoit中就好了
发表于 2009-3-17 10:16:31 | 显示全部楼层
[au3]$i = 0
Search(@ProgramFilesDir)
MsgBox(0, 0, $i)

Func Search($current)
        Local $search = FileFindFirstFile($current & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        $i += 1
                EndIf
                If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        Search($current & "\" & $file)
                EndIf
        WEnd
        Return
EndFunc   ;==>Search[/au3]
这个代码我都不知道骗过多少人了。。。。。还是有人问
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-19 08:01 , Processed in 0.076596 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表