以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  download的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121284)
--  作者：douglas738888
--  发布时间：2018/7/3 10:41:00
--  download的问题

请教老师，下面的代码怎样修改，才能下载到指定的文件夹，下面代码无法下载文件到指定文件夹

 

mex显示的路径和文件名是对的

 

Dim ftp1 As new ftpclient
ftp1.host="XXX"
ftp1.Account = "XXX"
ftp1.password = "XXX"
ftp1.RootDir = "/RQNHFJ" \'设置根目录

Dim fl1 As String = Tables("内部会议纪要").Current("附件") \'& ".doc"  \'已经生成.doc的文件名称，并已上传到数据库了
Dim path As String = "F:\\瑞勤研发\\临时下载文件\\" & fl1 \'下载到指定的文件夹路径
       messagebox.show(path)
If ftp1.Download(path,True)  Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：有点甜
--  发布时间：2018/7/3 10:46:00
--  

这个弹出什么？

 

msgbox(Tables("内部会议纪要").Current("附件"))

 

这个弹出什么？

 

msgbox(path)
--  作者：有点甜
--  发布时间：2018/7/3 10:47:00
--  

试试改成

 

If ftp1.Download("/RQNHFJ/" & fl1, path,True)  Then
--  作者：douglas738888
--  发布时间：2018/7/3 10:49:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：无标题.jpg
图片点击可在新窗口打开查看

 

msgbox(Tables("内部会议纪要").Current("附件")) 弹出的是"关于呈贡项目施工图预算编制的问题.doc"

[此贴子已经被作者于2018/7/3 10:51:51编辑过]
--  作者：有点甜
--  发布时间：2018/7/3 10:57:00
--  

 

改成这样

 

If ftp1.Download("/RQNHFJ/" & fl1, path,True)  Then