我就把别人现成的代码拿来做下示例看看吧
引用的代码来自:http://www.autoitx.com/forum.php ... omuid=1003#pid64900$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为查找到的文件夹名称,上一行意思就是进入此文件夹继续查找文件.如此循环
ToolTip( $searchdir & "" & $file ,0,0) ;===>用 ToolTip ,在3.3.1.3到3.3.1.5里面没问题
ConsoleWrite( $searchdir & "" & $file & @crlf ) ;===>用 ConsoleWrite ,在3.3.1.3里面没问题,3.3.1.4抽筋了,到3.3.1.5里面又没问题了
FileWriteLine('_filelist.txt',$searchdir & "" & $file) ;===>用 FileWriteLine,在3.3.1.3里面没问题,3.3.1.4抽筋了,到3.3.1.5里面依然在抽筋
If StringInStr ($file,'QQ.exe') Then MsgBox( 0,0,$searchdir & "" & $file & @crlf )
WEnd
EndFunc
如果是脚本错了,错在什么地方?请指正 |