主题：求助 文件保存

 表Click 中写的。
Select Case e.Col.Name
    Case "下载地址"
        Dim Proc As New Process '定义一个新的Process
        Dim aa As Row = Tables("文电").Current
        Dim bb As String
        bb = aa("上传文件")
       Dim cc As String
        cc = "http://10.19.23.146/ftp/UpLoadFile/" & bb & " "
       Proc.File = cc '指定要打开的网页地址
        Proc.Start()
End Select
想用FTP模式写~~弹出对话框不会弄了 在哪里加SaveFileDialog ？

Dim ftp As new FTPClient
   ftp.Host = "10.10.10.10"
   ftp.Account = "ddd"
   ftp.Password = "ddd"
If ftp.Download("\UpLoadFile\" & bb & " ","c:\" & bb & " ") = True Then
    Messagebox.show("下载完成!","提",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

Dim dlg As new SaveFileDialog
Dim bb As String = "123.txt"
dlg.FileName = bb
If dlg.ShowDialog = DialogResult.OK Then
    Dim ftp As new FTPClient
    ftp.Host = "10.10.10.10"
    ftp.Account = "ddd"
    ftp.Password = "ddd"
   
    If ftp.Download("\UpLoadFile\" & bb & " ", dlg.FileName) = True Then
        Messagebox.show("下载完成!","提",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

 上传和下载 我都没有设置筛选条件 。。。
doc,xcl.ppt.dbm,jpg,png之类的都实验了，都好用，
但就TXT 文件下不了，怎么个情况

路径有问题，弹出路径看看

 

msgbox("\UpLoadFile\" & bb & "12345")

If ftp.Download("\UpLoadFile\" & bb, dlg.FileName) = True Then