以文本方式查看主题

-  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
    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


--  作者:有点甜
--  发布时间: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
--  发布时间: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
    FileSys.DeleteFile(path,2,2)
End If

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的情况,你没有设置成被动模式