我测试没问题，如下代码
Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar" '这里加上了js扩展名
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
With wb.AddListGroup("", "lsg3", "增加跳转的列表")
.Add("ls5","新浪主页", "", "/test/test.doc")
.Add("ls6","网易主页", "", "/images/001.jpg")
End With
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2018/8/31 14:26:00 [显示全部帖子]
