Foxtable(狐表)用户栏目专家坐堂 → 求助 文件保存


  共有1927人关注过本帖树形打印复制链接

主题:求助 文件保存

帅哥哟,离线,有人找我吗?
lingyun00800
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:177 积分:1757 威望:0 精华:0 注册:2015/1/17 23:24:00
求助 文件保存  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lingyun00800
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:177 积分:1757 威望:0 精华:0 注册:2015/1/17 23:24:00
  发帖心情 Post By:2015/7/28 16:33:00 [显示全部帖子]

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

 回到顶部