window.open参数问题

Question

Dim str As String = "\\apszxsh01\QAtest\QA\checkdaily\productline\200702ALFB-C1.XLS"
        Dim pathurl As String = str.Replace("\", "\\")
        Response.Write("<script>window.open('"&pathurl&"')</script>")

Answer 1

多谢cloudgamer(欢迎交流qq215754452) ,贴等会儿再结.
能不能再请教一个问题,如果dathurl不存在,此时会弹出系统自动的对话框.所以想先判断这个文件是否存在.
请问判断这个文件是否存在,怎样实现?

Answer 2

Dim fs As Object
        fs = CreateObject("Scripting.FileSystemObject")
            If Not fs.fileexists(path) Then
            //message
           endif