以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  微信客户端下载cad图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162225)
--  作者：qwz405
--  发布时间：2021/4/9 11:57:00
--  微信客户端下载cad图片
老师，您好。

e.WriteFile可正常下载 word、excel、pdf 等文件。

现在要提供 cad 文件给客户，是否可以操作？

e.WriteFile("***\\a1.dwg")
下载的是.htm文件，把后缀名.htm改为.dwg，下载的文件才可以使用。这样对普通使用者操作比较麻烦。
--  作者：有点蓝
--  发布时间：2021/4/9 13:35:00
--  
访问地址直接使用文件名，如：http://127.0.0.1/a1.dwg

服务端代码
Select Case e.Path
    Case "a1.dwg"
        e.WriteFile("***\\a1.dwg")
End Select
--  作者：qwz405
--  发布时间：2021/4/9 14:13:00
--  
老师，您好。

Select Case e.Path
    Case "(档案名)"
        e.WriteFile("***\\(档案名)")
End Select

（档案名) 能否随机生成？或者通过页面跳转？
因为：提供下载的档案名称不固定，操作者可能随时增删，在服务端没法预先全部设定。
--  作者：有点蓝
--  发布时间：2021/4/9 14:33:00
--  
读取目录的文件名生成下载链接

For Each File As String In FileSys.GetFiles("d:\\web\\file")
  wb.InsertHTML("<a href=\'http://127.0.0.1/file/" & FileSys.GetName(file) & "\'>" & FileSys.GetName(file) & "</a>")
Next

把文件放到"d:\\web\\file"目录里，然后不需要写代码，开启服务的时候添加扩展名即可：http://www.foxtable.com/mobilehelp/topics/0276.htm

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\\web"
HttpServer.Extensions.add(".dwg")
HttpServer.Start()