关于 文件搜索

as86455011

假如我在C:\windows (@windowsdir)里面搜索很多 Dll 和 EXE 文件(这些文件是指定文件的,非*.dll & *.exe)

搜索了,然后将他们复制到某个文件夹进行修改.

这个脚本该怎样写呢??

[ 本帖最后由 as86455011 于 2009-1-24 12:03 编辑 ]

大绯狼

[au3]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 $file=你要找的文件 Then
                                复制到别的地方
                                                                修改
                        EndIf
                EndIf
                If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        Search($current & "\" & $file, $ext)
                                EndIf
        WEnd
        Return
EndFunc   ;==>Search[/au3]

as86455011

谢谢楼上的那位兄弟~

872777825

很强大   暴力