[已解决]解包的VBS调用自定义函数出错？

set ws=wscript.createobject("wscript.shell")
set fs=wscript.createobject("scripting.filesystemobject")
set arg=wscript.arguments
errlvl_0_="No error"
errlvl_1_="no file"

if arg.count <> 0 then
set oexec=ws.exec("""7z.exe"" x " & chr(34) & arg(0) & chr(34) & " -od:\ -aoa")
error_(oexec.exitcode)
else
error_(1)
end if

function error_(error)
    set write_log=fs.opentextfile(ws.CurrentDirectory & "\1.txt",8,true)
    select case error
        case 0
            write_log.writeline(errlvl_0_)
case 1
    write_log.writeline(errlvl_1_)
        case else
            write_log.writeline(null)
    end select
    write_log.close
end function
复制代码