| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于ＦＴＰ的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75332) |
| -- 作者：owenlyx -- 发布时间：2015/10/5 19:49:00 -- 关于ＦＴＰ的问题 代码如下，为什么每一次都会出现下载失败的提示，是不是必须在照片列里写入照片名称才能自动下载？ Dim ftp1 As new ftpclient ftp1.host="XXXXXXX" ftp1.Account = "XXXXXXXX" ftp1.password = "XXXXXXXXXX" ftp1.OpenManager Dim f1,f2 As String For Each r As Row In Tables("进货明细").Rows f1=r("照片") f2=FileSys.GetName(R("照片")) If ftp1.Download(f1, projectPath & "RemoteFiles/" & f2) = True Then Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If Next |
| -- 作者：owenlyx -- 发布时间：2015/10/6 10:55:00 -- 自顶一下！ |
| -- 作者：qianqian1530 -- 发布时间：2015/10/6 11:09:00 -- 先判断一下, ftp链接 是否成功, 下载地址必须是 完整链接. |
| -- 作者：owenlyx -- 发布时间：2015/10/6 12:30:00 -- 是链接成功的阿， 但是还是失败了。。。 |
| -- 作者：qianqian1530 -- 发布时间：2015/10/6 13:11:00 -- Dim ftp1 As new ftpclient ftp1.host="XXXXXXX" ftp1.Account = "XXXXXXXX" ftp1.password = "XXXXXXXXXX" For Each r As Row In Tables("进货明细").Rows If ftp1.Download(r("照片"), projectPath & "RemoteFiles/" & FileSys.GetName(r("照片"))) = True Then Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If Next
|
| -- 作者：qianqian1530 -- 发布时间：2015/10/6 13:11:00 -- 不行的话 , 把你的 r("照片"), 数据发一下 |
| -- 作者：sloyy -- 发布时间：2015/10/6 17:38:00 -- 我敢肯定,你的 r("照片") 肯定是错的 你要做好以下2点才能使用 1 设置好扩展列 2 上传照片
|
| -- 作者：黄训良 -- 发布时间：2015/10/6 18:34:00 -- 最好判断一下ftp上是否存在要下载的照片文件！ |
| -- 作者：大红袍 -- 发布时间：2015/10/7 10:25:00 -- 下载失败，肯定是你路径没写对。msgbox看一下 |