以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp下载自主选择存放路径  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114041)

--  作者:cd_tdh
--  发布时间:2018/1/27 6:59:00
--  ftp下载自主选择存放路径
看帮助学习中,没实践的哈。
If 
ftp1.Download("\\photo\\Desert.jpg","c:\\data\\Desert.jpg") = True Then
不指定存放路径到c:\\data\\Desert.jpg,由用户自己选择怎么写?
--  作者:有点蓝
--  发布时间:2018/1/27 8:48:00
--  
参考:http://www.foxtable.com/webhelp/scr/0329.htm

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= 
"文件|*.jpg" \'设置筛选器
If
 dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show(
"你要保存为:" & dlg.FileName,"提示"\'提示用户选择的文件
    If ftp1.Download("\\photo\\Desert.jpg",dlg.FileName) = True Then
End
 
If