以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 上传文件到FTP,权限问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64431) |
||||
-- 作者:tina2012 -- 发布时间:2015/2/13 14:12:00 -- 上传文件到FTP,权限问题 问题见: |
||||
-- 作者:Bin -- 发布时间:2015/2/13 14:15:00 -- 已经回复 |
||||
-- 作者:tina2012 -- 发布时间:2015/2/13 15:20:00 --
文件列 可以隐藏 “插入文件、插入目录、清除内容这三项吗” |
||||
-- 作者:Bin -- 发布时间:2015/2/13 15:21:00 -- 不可以.除非自己设计 |
||||
-- 作者:tina2012 -- 发布时间:2015/2/13 15:29:00 -- 系统自带的“另存文件”可以自动读取文件名的文件格式,但是自己设计的不行,而且另存出错,
打开文件代码: 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编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2015/2/13 15:36:00 -- 照抄例子,例子有问题么?
[此贴子已经被作者于2015/2/13 15:36:22编辑过]
|
||||
-- 作者:tina2012 -- 发布时间:2015/2/13 16:02:00 -- 当然是有问题,不然怎么会弹出错误,既然例子有问题,为什么上传给我们参考呢? |
||||
-- 作者:有点甜 -- 发布时间:2015/2/13 16:03:00 -- 以下是引用tina2012在2015/2/13 16:02:00的发言:
当然是有问题,不然怎么会弹出错误,既然例子有问题,为什么上传给我们参考呢?
不可能有问题啊好吧?
用户名、密码自己不会改? [此贴子已经被作者于2015/2/13 16:03:40编辑过]
|
||||
-- 作者:tina2012 -- 发布时间:2015/2/13 16:20:00 -- 这些肯定都改过了,还出的问题。不然上传的过程中也会出错。。。 |
||||
-- 作者:有点甜 -- 发布时间:2015/2/13 16:25:00 -- 以下是引用tina2012在2015/2/13 16:20:00的发言:
这些肯定都改过了,还出的问题。不然上传的过程中也会出错。。。
例子不可能有问题。暂无ftp账号测试,贴上你的例子测试。 |