以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树保存的文件是什么类型，没扩展名下载不了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59666)
--  作者：黄训良
--  发布时间：2014/11/7 23:26:00
--  [求助]目录树保存的文件是什么类型，没扩展名下载不了


                Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
                tv.CreateTree(st2,"系目")  \'
                tv.Nodes.Insert(st2,0)
                tv.Save(ProjectPath  & "\\" & st2)

 

代码下载时 提示：文件 不存在。用ftp文件管理器下载 正常

ftp.ChangeDir(_TSG)
\'_TSG = "\\DoShare"
\'_TSGMC = "医学图书"
\'_TSGCC = e.Form.Name

If ftp.FileExists(_TSG & "\\" & _TSGMC)
    If ftp.Download(_TSG & "\\" & _TSGMC,ProjectPath & "/" &  _TSGMC)
        msgbox("下载完成!")
        Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
        tv.Load(ProjectPath & "/" & _TSGMC)
    Else
        msgbox("下载失败!")
    End If
Else
    msgbox("文件不存在!")
End If
--  作者：程兴刚
--  发布时间：2014/11/7 23:49:00
--  

自己压缩打包后上传，下载后自动解压，不需要观后缀名吧？