-- 作者:有点甜
-- 发布时间:2018/10/15 11:29:00
--
如果还有问题,就删除或者修改下面代码
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",".jpeg" \'这里加上了js扩展名 e.WriteFile(fl) Return \'这里必须返回 End Select End If
|