| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于图片列如何添加文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89273) |
| -- 作者：18523982317 -- 发布时间：2016/8/18 12:47:00 -- [求助]关于图片列如何添加文件 Dim zp As WinForm.PictureViewer = e.Form.Controls("PictureViewer1") Dim ftp As New FTPClient ftp.Host = "0.0.10.106" ftp.Port = 4327 ftp.Account = "****" ftp.Password = "t6666" ftp.RootDir = "\\rszp" ftp.Connect ftp.Upload(dlg.FileName,"/rszp",True) zp.FTPclient = ftp zp.AddFile(dlg.FileName) End If End If 我已经链接成功了服务器，为什么zp.AddFile(dlg.FileName)执行后，图片列却是加入的本地路径的文件，求解，怎么添加的服务器路径？ 我已经在图片列和绑定字段的图片浏览器设置了远程路径。求解，还有怎么重命名加入的文件名称？ 帮助翻烂了都没找到想要的。。。。
[此贴子已经被作者于2016/8/18 12:47:51编辑过]
|
| -- 作者：18523982317 -- 发布时间：2016/8/18 13:47:00 -- 求解啊 |
| -- 作者：大红袍 -- 发布时间：2016/8/18 14:59:00 -- 上传的时候重命名
ftp.Upload(dlg.FileName,"/rszp/文件名字.txt",True) zp.AddFile("/rszp/文件名字.txt") |
| -- 作者：18523982317 -- 发布时间：2016/8/18 17:54:00 -- 以下是引用大红袍在2016/8/18 14:59:00的发言：
上传的时候重命名
ftp.Upload(dlg.FileName,"/rszp/文件名字.txt",True) zp.AddFile("/rszp/文件名字.txt") 大神帮我看看下面这段代码 无论怎么调试都是上传失败，用ftp测试，服务器没问题 服务器的ftp文件夹是OA oa里面有2个文件夹 其中1个是rszp文件夹 Dim dlg As new OpenFileDialog dlg.Filter = "图片|*.jpg;*.jpeg;*.ico;*.png;*.gif" If dlg.ShowDialog = DialogResult.OK Then
Dim xg As Integer = dlg.FileName.LastIndexOf("\\")\'斜杠最后出现的位置 Dim fname As String = dlg.FileName.SubString(xg + 1) \'获取所选文件名称 ABC.jpg
Dim ifo As new FileInfo(dlg.filename) If ifo.Length > 2048000 Then msgbox("只能上次2M以下的图片!") Return End If Dim ftp As new FTPClient ftp.host="120.25.196.16" ftp.Port = 4237 ftp.account="*****" ftp.password="******" \'ftp.ChangeDir("\\rszp") If ftp.DirExists("\\rszp\\" & Tables("员工资料").Current("姓名")) = False Then ftp.MakeDir("\\rszp\\" & Tables("员工资料").Current("姓名")) End If
Dim fp As String = "\\rszp\\" & Tables("员工资料").Current("姓名") Dim sts As List(of String) = ftp.GetFileList(fp)\'获取当前目录的文件列表
For Each st As String In sts If st = fname Then MessageBox.Show("服务器上存在同名文件!","提醒") Return \'这里是简化了操作,读者可以自己做是否覆盖的功能 End If Next
e.Form.text = "文件上传中....请稍候........." If ftp.Upload(dlg.FileName,fp & "\\" & fname) = True Then \'若成功上传 e.Form.text = "基本资料" MessageBox.Show("上传成功!","提醒") Else MessageBox.Show("上传失败!","提醒") e.Form.text = "基本资料" End If
End If |
| -- 作者：18523982317 -- 发布时间：2016/8/18 17:57:00 -- 试了下，1是无法创建文件夹，二是加一句 ftp.RootDir("\\rszp") 报错，不知道为什么？ |
| -- 作者：18523982317 -- 发布时间：2016/8/18 18:01:00 -- 不好意思 总算想到个可能就是服务器连接不成功，尼玛端口不小心写错了 4327写成4237了。。。。我草 研究了一下午代码。。。现在成功了！！！ 但是还是没想明白ftp.RootDir("\\rszp")为什么保存的时候报错，说是没给访问属性。。。
|
| -- 作者：大红袍 -- 发布时间：2016/8/18 18:13:00 --
要这样写 ftp.RootDir = "/rszp"
http://www.foxtable.com/webhelp/scr/1410.htm
|