主题：[求助]

帮助文档下载内容：

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.FileExists("\photo\jz.png") Then '如果存在则下载
    If ftp1.Download("\photo\jz.png","c:\data\jz.png") Then
        messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Else
    messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

我自己的下载代码如下：疑问是下载路径为什么要指定好？我想下载到哪就下载到哪是不是更好一点呢？。

Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.72"
ftp1.Account = "bug"
ftp1.Password = "bug"
Dim txt As  WinForm.TextBox = e.Form.Controls("textbox2")
If ftp1.FileExists("\FileSys.GetName(txt.value)") Then '如果存在则下载
    If ftp1.Download("\FileSys.GetName(txt.value)","c:\data\jz.png") Then
        messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Else
    messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

If ftp1.FileExists("/" & FileSys.GetName(txt.value)) Then '如果存在则下载

    '在这里插入一个SaveFileDialog

    http://www.foxtable.com/help/topics/0329.htm

    If ftp1.Download("/" & FileSys.GetName(txt.value), 路径变量) Then

Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.72"
ftp1.Account = "bug"
ftp1.Password = "bug"
Dim txt As  WinForm.TextBox = e.Form.Controls("textbox2")
If ftp1.FileExists("/" & FileSys.GetName(txt.value)) Then '如果存在则下载
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= ""  '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok  Then  '如果用户单击了确定按钮
        MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
    End  If
    If ftp1.Download("/" & FileSys.GetName(txt.value), "路径变量") Then
        messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Else
    messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

不是很清楚如何把路径变量值取出来？

怎么出现保存对话框，然后输入文件名（文件类型是不能选择的）。下载的文件是没有扩展名的。

能不能直接点击下载，出现保存对话框，点击确定，下载下来的文件名和上传上去的文件名是一致的？