查找文件问题

telking

;查找脚本目录的ISO文件
    Local $search = FileFindFirstFile("*.iso")
If $search = -1 Then
   MsgBox(64, "错误", "当前目录没有可用的.iso文件",5)
 Exit
EndIf
 While 1
    Local $sfile = FileFindNextFile($search)
Global $sFilename = @ScriptDir & "\" & $sfile  ;默认显示内容
MsgBox ( 4096 , "test" ,$sFilename)
 If $search = 1  Then ExitLoop
    If @error Then ExitLoop
 WEnd
 FileClose($search); 关闭搜索句柄

这个代码是查找脚本目录的ISO文件，它会将ISO一个一个显示出来，我想修改下功能，就是查找到第一个ISO就停止搜索，请问如何修改下

[ 本帖最后由 telking 于 2008-6-20 22:02 编辑 ]

bing614

[au3];查找脚本目录的ISO文件
    Local $search = FileFindFirstFile("*.iso")
If $search = -1 Then
   MsgBox(64, "错误", "当前目录没有可用的.iso文件",5)
Exit
EndIf
While 1
    Local $sfile = FileFindNextFile($search)
Global $sFilename = @ScriptDir & "\" & $sfile  ;默认显示内容
MsgBox ( 4096 , "test" ,$sFilename)
If $search = 1  Then ExitLoop
    If @error Then ExitLoop
exitloop
WEnd
FileClose($search); 关闭搜索句柄[/au3]