以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- ShowUI的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127252) |
-- 作者:douglas738888 -- 发布时间:2018/11/9 14:01:00 -- ShowUI的问题 请教老师,想实现,下载时不显示进度条,下面代码黄色的部分改成False,就下载失败,如果是true就能正常下载到指定的路径和文件夹中,帮助上可设为false,或默认为fasle啊
Dim ftp1 As new ftpclient Dim st As String = "F:\\LSXZWJ"
|
-- 作者:有点甜 -- 发布时间:2018/11/9 14:45:00 -- 比如你要下载到 d:\\abc.txt,如果你之前就已经存在一个 d:\\abc.txt,你要下载并且覆盖它,就会报错。
你可以先删除文件,加上代码如
If FileSys.FileExists(path) Then |
-- 作者:douglas738888 -- 发布时间:2018/11/9 15:49:00 -- 老师,上面的代码是能正常创建文件夹,也能从FTP上下载文件到本地的文件夹中,就是下载文件的时候会出现下载的进度界面
还未下载前,F盘还没有创建文件夹,也不存在任何文件,不用覆盖,关闭系统的时候已经写代码会删除临时建立的文件夹,下次再下载的时候又新建临时文件夹,这些都没有问题,已经写代码完成了。
上面的代码就是创建临时文件夹,并下载文件到临时文件夹中,这些都能实现的。
现在的问题是,不想显示下载时的进度界面。因为在做资料的文件阅览并在WebBrowser1上浏览PDF文件,如果点击一个文件名就出现一次下载进度界面很烦的,所以不想出现下载进度界面。 [此贴子已经被作者于2018/11/9 15:53:00编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/11/9 16:20:00 -- 加上代码
If FileSys.FileExists(path) Then If ftp1.Download(fl1, path) Then
如果上面代码也无法下载,就是你ftp设置的问题了 [此贴子已经被作者于2018/11/9 16:20:36编辑过]
|
-- 作者:douglas738888 -- 发布时间:2018/11/12 11:57:00 -- 请教老师,根据老师指导的代码,折腾了1天,如果不写true就是无法下载,这样的情况FTP应该怎样设置
下载文件必须要显示下载进度界面吗?
If ftp1.Download(fl1, path,true) Then |
-- 作者:有点甜 -- 发布时间:2018/11/12 12:17:00 -- 1、你的ftp先尝试改成被动模式,如这里设置
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1
2、如果不是已经存在同名文件需要覆盖的问题,那就只能1的情况,你没有设置成被动模式 |