主题：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

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

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

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

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

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

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

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

加上代码

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

If ftp1.Download(fl1, path)  Then

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

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

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

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

1、你的ftp先尝试改成被动模式，如这里设置

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1

2、如果不是已经存在同名文件需要覆盖的问题，那就只能1的情况，你没有设置成被动模式