得到某个目录下的所有文件名或一种类型的文件名

czdn

怎么编写AUTOIT程序，得到某个目录下的所有文件名或一种类型的文件名(如EXE，BAT，REG等）

jhwl

可以使用递归遍历,有点复杂.
还有其它的方法...

czdn

可以说说吗？

netegg

原帖由 czdn 于 2008-5-30 00:02 发表
可以说说吗？

我在udf 函数那个板块里放出了一个也许对你有帮助
标题：发一个按扩展名搜索文件的例子[别的论坛看到的]

[ 本帖最后由 netegg 于 2008-5-30 00:48 编辑 ]

dyljf

#include<file.au3>
$filelist=_FileListToArray("c:\windows","*.exe",1)
for $i=1 to $filelist[0]
FileWriteLine("files.txt",$filelist[$i])
Next
ShellExecute("files.txt")

meteorln

哈哈，又看到新的一种方法。。。

大绯狼

Search("D:\", "exe")
Func Search($current, $ext)
        Local $search = FileFindFirstFile($current & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        If StringRight($current & "\" & $file, StringLen($ext)) = $ext Then
                                MsgBox(0,0,$current & "\" & $file)
                        EndIf
                EndIf
                If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        Search($current & "\" & $file, $ext)
               
                EndIf
        WEnd
        Return
EndFunc   ;==>Search