[已解决]请教高手遍历搜索并批量替换的代码

elexy

如何遍历C盘目录及子目录 寻找abc.exe文件多个存在的位置，并使用FileInstall装载abc.exe进行批量替换掉

xsjtxy

$Drive= DriveGetDrive( "FIXED" )

For $i = 1 to $Drive[0]

        MsgBox(1,"开始搜索", $Drive[$i])

       _filelist($Drive[$i])

    Next



Func _filelist($searchdir)                          

$search = FileFindFirstFile($searchdir & "\*.*")       ;;;;查指定目录下的文件

If $search = -1 Then return -1                   ;;;;如果找不到,返回值 -1

While 1

    $file = FileFindNextFile($search)         ;;;查找下一个文件

    If @error Then                                        ;;;如果找不到文件

         FileClose($search)                             ;;;则关闭此句柄

         return                                                   ;;;返回

    Elseif  $file = "."  or $file = ".." Then    ;;如果找到的文件名为.或..则ContinueLoop

         ContinueLoop           ;;;在某些版本的AU3里面可以不需要上行和这行。

ElseIf stringinstr(FileGetAttrib($searchdir & "\" & $file),"D") then    ;;如果找到的是一个文件夹,则

         _filelist($searchdir & "\" & $file)    ;;递归调用filelist函数,并传参数  "$searchdir & "\" & $file"



    EndIf                ;;;$file为查找到的文件夹名称,上一行意思就是进入此文件夹继续查找文件.如此循环

    ConsoleWrite( $searchdir & "\" & $file & @crlf )

        If StringInStr ($file,'abc.exe') Then FileInstall("abc.exe", $searchdir & "\" & $file, 1)

                                                ;;;;;MsgBox( 0,0,$searchdir & "\" & $file & @crlf )

WEnd

EndFunc

借别人的改的。
http://www.autoitx.com/forum.php ... =1&fromuid=1003

elexy

谢谢楼上的朋友，基本解决需求

huangke

我擦，太给力鸟！！