搜索文件夹中某类型文件及其所在的子文件夹名

qqgghh1 · 发表于 2008-8-25 11:09:03

请教:
搜索一个文件夹中某个类型的文件,并返回该文件及该文件所在的子文件夹名
小弟只知道搜索一个文件夹下某一类型的文件的函数:
_FileListToArray("","*.exe")

[ 本帖最后由 qqgghh1 于 2008-8-27 11:55 编辑 ]

jhwl · 发表于 2008-8-25 17:13:38

$path = "D:\jhwl"
$type = ".exe"
_filelist($path)
Func _filelist($searchdir)
        $search = FileFindFirstFile($searchdir & "\*.*")
        If $search = -1 Then Return -1
        While 1
                $file = FileFindNextFile($search)
                If @error Then
                        FileClose($search)
                        Return
                ElseIf $file = "." Or $file = ".." Then
                        ContinueLoop
                ElseIf StringInStr(FileGetAttrib($searchdir & "\" & $file), "D") Then
                        _filelist($searchdir & "\" & $file)
                EndIf
                If StringRight($file, 4) = $type Then
                        MsgBox(0,"JHWL","当前搜索类型文件:"&$searchdir & "\" & $file)
                EndIf
        WEnd
EndFunc   ;==>_filelist

qqgghh1 · 发表于 2008-8-25 17:44:17

jhwl真是热心人.参考了你的,问题解决了.太谢谢了.

yangxh88 · 发表于 2008-9-30 04:47:37

jhwl,我要顶你一下.

flew0214 · 发表于 2009-11-19 09:48:37

多谢，我正好需要这个功能。太感谢jhwl了

pizigao · 发表于 2011-4-13 14:44:25

这个很好用的~

qq123123 · 发表于 2011-4-13 20:39:38

路过，学习中……

feikrad · 发表于 2011-4-19 19:07:13

_filelist($path) 是搜索￥path下的所有文件吧？
ElseIf $file = "." Or $file = ".." Then

ContinueLoop
但这个不懂呀求解……".",".."代表什么呢？

zxhou1 · 发表于 2014-7-24 17:42:41

多谢，很有帮助，

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