Foxtable(狐表)用户栏目专家坐堂 → ShowUI的问题


  共有126人关注过本帖树形打印复制链接

主题:ShowUI的问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1016 积分:7567 威望:0 精华:0 注册:2012/4/18 16:28:00
ShowUI的问题  发帖心情 Post By:2018/11/9 14:01:00 [只看该作者]

请教老师,想实现,下载时不显示进度条,下面代码黄色的部分改成False,就下载失败,如果是true就能正常下载到指定的路径和文件夹中,帮助上可设为false,或默认为fasle啊

 

Dim ftp1 As new ftpclient
    ftp1.Host = ***
    ftp1.Account = ***
    ftp1.Password = ***
    
    Dim fl1 As String = Tables("文件_Table1").Current("附件")

    Dim st As String = "F:\LSXZWJ" 
    FileSys.CreateDirectory(st) '系统临时创建一个文件夹·接收下载的临时文件 
    Dim path As String = st & fl1 '下载到指定的文件夹


    If ftp1.Download(fl1, path, True) = False Then
        Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
        tab.SelectedIndex = 1
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 14:45:00 [只看该作者]

比如你要下载到 d:\abc.txt,如果你之前就已经存在一个 d:\abc.txt,你要下载并且覆盖它,就会报错。

 

你可以先删除文件,加上代码如

 

If FileSys.FileExists(path) Then
    FileSys.DeleteFile(path,2,2)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1016 积分:7567 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2018/11/9 15:49:00 [只看该作者]

老师,上面的代码是能正常创建文件夹,也能从FTP上下载文件到本地的文件夹中,就是下载文件的时候会出现下载的进度界面

 

还未下载前,F盘还没有创建文件夹,也不存在任何文件,不用覆盖,关闭系统的时候已经写代码会删除临时建立的文件夹,下次再下载的时候又新建临时文件夹,这些都没有问题,已经写代码完成了。

 

上面的代码就是创建临时文件夹,并下载文件到临时文件夹中,这些都能实现的。

 

现在的问题是,不想显示下载时的进度界面。因为在做资料的文件阅览并在WebBrowser1上浏览PDF文件,如果点击一个文件名就出现一次下载进度界面很烦的,所以不想出现下载进度界面。

[此贴子已经被作者于2018/11/9 15:53:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 16:20:00 [只看该作者]

加上代码

 

If FileSys.FileExists(path) Then
    FileSys.DeleteFile(path,2,2)
End If

If ftp1.Download(fl1, path)  Then


 

如果上面代码也无法下载,就是你ftp设置的问题了

[此贴子已经被作者于2018/11/9 16:20:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1016 积分:7567 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2018/11/12 11:57:00 [只看该作者]

请教老师,根据老师指导的代码,折腾了1天,如果不写true就是无法下载,这样的情况FTP应该怎样设置

 

下载文件必须要显示下载进度界面吗?

 

If ftp1.Download(fl1, path,true)  Then


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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的情况,你没有设置成被动模式


 回到顶部