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

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

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

老师，现在代码这样，怎么让红框内文件名称默认就为当前行的标准名称&标准编号呢（公路工程概算定额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

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

 

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