找不到可以安装的文件就会提示出错!

网络凯子

        $FileList = _FileListToArray(@ScriptDir & "\SoftWare", "*.*", 1)
        If @error = 1 Then
                GUICtrlSetData($Edit2, "找不到文件夹,可能路径出错,请检查！" & @CRLF & @CRLF, 1)
                Sleep(1000)
        EndIf
        If @error = 4 Then
                GUICtrlSetData($Edit2, "未发现可安装程序!" & @CRLF & @CRLF, 1)
                Sleep(1000)
        EndIf
        GUICtrlSetData($Edit2, "已发现" & $FileList[0] & "个可安装程序,马上进入安装..." & @CRLF & @CRLF, 1)
        Sleep(1000)
        For $i = 1 To $FileList[0]
                GUICtrlSetData($Edit2, "正在安装 " & $FileList[$i], 1)
                RunWait(@ScriptDir & "\SoftWare" & $FileList[$i])
                Sleep(300)
                GUICtrlSetData($Edit2, "   √ " & @CRLF & @CRLF, 1)
        Next

如果安装目录下面有文件,就一切都很正常.但是如果没有文件,找不到可以安装的文件就会提示出错!



大伙帮忙看看...

netsmu

$FileList = _FileListToArray(@ScriptDir & "\SoftWare", "*.*", 1)
        If @error = 1 Then
                GUICtrlSetData($Edit2, "找不到文件夹,可能路径出错,请检查！" & @CRLF & @CRLF, 1)
                Sleep(1000)
        elseIf @error = 4 Then
                GUICtrlSetData($Edit2, "未发现可安装程序!" & @CRLF & @CRLF, 1)
                Sleep(1000)
        else
        GUICtrlSetData($Edit2, "已发现" & $FileList[0] & "个可安装程序,马上进入安装..." & @CRLF & @CRLF, 1)
        Sleep(1000)
        For $i = 1 To $FileList[0]
                GUICtrlSetData($Edit2, "正在安装 " & $FileList[$i], 1)
                RunWait(@ScriptDir & "\SoftWare\" & $FileList[$i])
                Sleep(300)
                GUICtrlSetData($Edit2, "   √ " & @CRLF & @CRLF, 1)
        Next
        endif

网络凯子

谢谢。。

chenronting

把标题改为【已解决】