Foxtable(狐表)用户栏目专家坐堂 → 上传文件到FTP,权限问题


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

主题:上传文件到FTP,权限问题

美女呀,离线,留言给我吧!
tina2012
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
上传文件到FTP,权限问题  发帖心情 Post By:2015/2/13 14:12:00 [显示全部帖子]


 回到顶部
美女呀,离线,留言给我吧!
tina2012
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2015/2/13 15:20:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:00.jpg
图片点击可在新窗口打开查看

 

文件列 可以隐藏 “插入文件、插入目录、清除内容这三项吗”


 回到顶部
美女呀,离线,留言给我吧!
tina2012
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2015/2/13 15:29:00 [显示全部帖子]

系统自带的“另存文件”可以自动读取文件名的文件格式,但是自己设计的不行,而且另存出错,

 
图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看

 

打开文件代码:

Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)

Dim ftp As FTPClient = c.DataCol.FTPClient

Dim path As String = ProjectPath & "RemoteFiles/" & FileSys.GetName(CurrentTable.Current(c.Name))

ftp.Download(CurrentTable.Current(c.Name), path, True)

 

Dim proc As new Process

proc.File = path

proc.Start

e.Form.Close


 

另存文件:

Dim dlg As new SaveFileDialog

If dlg.ShowDialog = DialogResult.OK Then

    Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)

    Dim ftp As FTPClient = c.DataCol.FTPClient

    Dim path As String = ProjectPath & "RemoteFiles/" & FileSys.GetName(CurrentTable.Current(c.Name))

    ftp.Download(CurrentTable.Current(c.Name), path, True)

      

    FileSys.CopyFile(path, dlg.FileName, True)

    msgbox("另存成功")

    e.Form.Close

End If

 


 


图片点击可在新窗口打开查看此主题相关图片如下:02.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/2/13 15:30:09编辑过]

 回到顶部
美女呀,离线,留言给我吧!
tina2012
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2015/2/13 16:02:00 [显示全部帖子]

当然是有问题,不然怎么会弹出错误,既然例子有问题,为什么上传给我们参考呢?

 回到顶部
美女呀,离线,留言给我吧!
tina2012
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2462 威望:0 精华:0 注册:2013/9/23 16:09:00
  发帖心情 Post By:2015/2/13 16:20:00 [显示全部帖子]

这些肯定都改过了,还出的问题。不然上传的过程中也会出错。。。

 回到顶部