[已解决]请教高手遍历搜索并批量替换的代码
本帖最后由 elexy 于 2010-6-25 10:10 编辑如何遍历C盘目录及子目录 寻找abc.exe文件多个存在的位置，并使用FileInstall装载abc.exe进行批量替换掉 $Drive= DriveGetDrive( "FIXED" )
For $i = 1 to $Drive
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?mod=viewthread&tid=8132&page=1&fromuid=1003 谢谢楼上的朋友，基本解决需求 我擦，太给力鸟！！
页:
[1]