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,我要顶你一下.:face (14):

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

多谢，很有帮助，{:face (270):}
页: [1]
查看完整版本: 搜索文件夹中某类型文件及其所在的子文件夹名