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


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

主题:ShowUI的问题

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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望: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


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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望: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编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望: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


 回到顶部