论坛 › 『 提问交流 』 › 得到某个目录下的所有文件名或一种类型的文件名

czdn 发表于 2008-5-29 23:44:48

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

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

jhwl 发表于 2008-5-29 23:50:16

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

czdn 发表于 2008-5-30 00:02:04

可以说说吗？

netegg 发表于 2008-5-30 00:45:00

原帖由 czdn 于 2008-5-30 00:02 发表 http://www.autoitx.com/images/common/back.gif
可以说说吗？
我在udf 函数那个板块里放出了一个也许对你有帮助
标题：发一个按扩展名搜索文件的例子[别的论坛看到的]

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

dyljf 发表于 2008-5-30 10:27:45

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

meteorln 发表于 2008-10-22 10:33:43

:face (21): 哈哈，又看到新的一种方法。。。

大绯狼 发表于 2008-10-22 16:09:30

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

查看完整版本: 得到某个目录下的所有文件名或一种类型的文件名