以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 文件保存  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72339)
--  作者：lingyun00800
--  发布时间：2015/7/28 15:42:00
--  求助 文件保存
 表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
[此贴子已经被作者于2015/7/28 15:43:56编辑过]
--  作者：大红袍
--  发布时间：2015/7/28 15:57:00
--  
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
--  作者：lingyun00800
--  发布时间：2015/7/28 16:33:00
--  
 上传和下载 我都没有设置筛选条件 。。。
doc,xcl.ppt.dbm,jpg,png之类的都实验了，都好用，
但就TXT 文件下不了，怎么个情况
--  作者：大红袍
--  发布时间：2015/7/28 16:34:00
--  

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

 

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

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