以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- FTP下载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133713) |
-- 作者:cd_tdh -- 发布时间:2019/4/18 15:29:00 -- FTP下载 老师,ftp下载,不指定目录,怎么写呢? Dim r As Row = Tables("规范标准管理").Current [此贴子已经被作者于2019/4/18 15:30:08编辑过]
|
-- 作者:有点甜 -- 发布时间:2019/4/18 15:48:00 --
If ftp1.Download(r("路径"), projectpath & FileSys.GetName(r("路径")), True) = True Then
|
-- 作者:cd_tdh -- 发布时间:2019/4/18 15:59:00 -- 老师,代码执行完成了,下进度都走完了的,但是本地没有下载的文件呢? |
-- 作者:有点甜 -- 发布时间:2019/4/18 16:18:00 -- 以下是引用cd_tdh在2019/4/18 15:59:00的发言:
老师,代码执行完成了,下进度都走完了的,但是本地没有下载的文件呢?
下载在你项目文件夹根目录里面,自己去查看一下。
|
-- 作者:cd_tdh -- 发布时间:2019/4/18 16:28:00 -- 怎么自定义路径呢?名称和原文件名一样。 [此贴子已经被作者于2019/4/18 16:28:10编辑过]
|
-- 作者:有点甜 -- 发布时间:2019/4/18 18:14:00 -- 以下是引用cd_tdh在2019/4/18 16:28:00的发言:
怎么自定义路径呢?名称和原文件名一样。 [此贴子已经被作者于2019/4/18 16:28:10编辑过]
这个意思?
If ftp1.Download(r("路径"), "d:\\" & FileSys.GetName(r("路径")), True) = True Then
这个意思?
http://www.foxtable.com/webhelp/scr/0329.htm
|
-- 作者:cd_tdh -- 发布时间:2019/4/23 13:42:00 -- 老师,现在代码这样,怎么让红框内文件名称默认就为当前行的标准名称&标准编号呢(公路工程概算定额JTG-T3831-2018) Dim r As Row = Tables("规范标准管理").Current
此主题相关图片如下:222222.png 此主题相关图片如下:qq截图20190423134407.png [此贴子已经被作者于2019/4/23 13:46:44编辑过]
|
-- 作者:有点甜 -- 发布时间:2019/4/23 15:25:00 -- Dim dlg As New SaveFileDialog dlg.filename = r("标准名称") & r("标准编号") & ".pdf" |
-- 作者:cd_tdh -- 发布时间:2019/4/23 15:55:00 -- dlg.filename = r("标准名称") & r("标准编号") & ".pdf"
老师,怎么获取要下载的文件的文件类型呢,我文件有几种可能,Pdf,Word,excel,rar? [此贴子已经被作者于2019/4/23 16:01:36编辑过]
|
-- 作者:有点甜 -- 发布时间:2019/4/23 16:11:00 -- 参考代码,如
Dim fl As String = "d:\\test.pdf"
|