主题：FTP下载

老师，ftp下载，不指定目录，怎么写呢？

Dim r As Row = Tables("规范标准管理").Current
If e.Col.name = "下载"  Then
    Dim dlg As New SaveFileDialog
    If dlg.ShowDialog = DialogResult.OK Then
        Dim ftp1 As new  ftpclient
        ftp1.host="120.    .0"
        ftp1.Account = "ftp "
        ftp1.password = "19***"
        If ftp1.Download(r("路径"),"",True) = True Then
            Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End  If
End  If

 

If ftp1.Download(r("路径"), projectpath & FileSys.GetName(r("路径")), True) = True Then

 

 

老师，代码执行完成了，下进度都走完了的，但是本地没有下载的文件呢？

 

下载在你项目文件夹根目录里面，自己去查看一下。

 

怎么自定义路径呢？名称和原文件名一样。

 

这个意思？

 

If ftp1.Download(r("路径"), "d:\" & FileSys.GetName(r("路径")), True) = True Then

 

这个意思？

 

http://www.foxtable.com/webhelp/scr/0329.htm

 

老师，现在代码这样，怎么让红框内文件名称默认就为当前行的标准名称&标准编号呢（公路工程概算定额JTG-T3831-2018）

Dim r As Row = Tables("规范标准管理").Current
If e.Col.name = "下载"  Then
    Dim dlg As New SaveFileDialog
    dlg.Filter= "Pdf文件|*.Pdf|Excel文件|*.xls|Word文件|*.doc|压缩文件|*.rar"   '设置筛选器
    If dlg.ShowDialog = DialogResult.OK Then
        Dim ftp1 As new  ftpclient
        ftp1.host="120..0"
        ftp1.Account = "01"
        ftp1.password = "1919"
        If ftp1.Download(r("路径"),dlg.FileName,True) = True Then
            Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End  If
End If

 

 

此主题相关图片如下：222222.png


此主题相关图片如下：qq截图20190423134407.png

    Dim dlg As New SaveFileDialog
    dlg.Filter= "Pdf文件|*.Pdf|Excel文件|*.xls|Word文件|*.doc|压缩文件|*.rar"   '设置筛选器

    dlg.filename = r("标准名称") & r("标准编号") & ".pdf"
    If dlg.ShowDialog = DialogResult.OK Then

dlg.filename = r("标准名称") & r("标准编号") & ".pdf" 

 

老师，怎么获取要下载的文件的文件类型呢，我文件有几种可能，Pdf,Word,excel,rar？

参考代码，如

 

Dim fl As String = "d:\test.pdf"
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String  = fl.SubString(idx)
msgbox(ext)