判断文件并执行这个文件

<script
 language="vbscript">

sub
 datacheck()

    if

func_FileExist("C:\Program
 Files\easylogic\oa.elc")=true

then

        Dim
 WshShell

        Set
 WshShell =  CreateObject("WScript.Shell")

        WshShell.Run
"""C:\Program  www.zzzyk.com
 Files\easylogic\oa.elc"""

        Set
 WshShell  =  Nothing

    else

        window.location.href
"../erpLoginCheck.htm?ReturnUrl="

+ window.location.href

        exit
 sub

    end
if

end
 sub

Function
 func_FileExist(strFilePath)

    set
 oFSO = createObject("Scripting.FileSystemObject")

    boolFileExists
 = oFSO.fileExists(strFilePath)

    set
 oFSO = Nothing

    func_FileExist
 = boolFileExists

End
 Function

</script>

描述：利用VBscript判断指定的文件是否存在，如果不存在则跳到下载页面，如果存在则直接打开
作者：WuWenji_ZhaoLinQing
 

补充：web前端 , JavaScript ,

上一个：仿浏览器 前进 后退 刷新
下一个：js ide WebStorm 使用总结