| 以文本方式查看主题 - 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=159328) |
| -- 作者：leiguohui -- 发布时间：2020/12/22 15:05:00 -- FTP 为什么FTP管理器能打开，代码上传总是报错（上传失败） Dim ftp1 As New FtpClient ftp1.Host="192.168.0.*" ftp1.Account = "zrftp" ftp1.Password = "123" ftp1.OpenManager() If ftp1.Upload("C:\\Users\\zjpc\\Desktop\\1.xls","d:\\zrweb\\wj\\1.xls")= True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If
[此贴子已经被作者于2020/12/22 15:05:41编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/12/22 15:23:00 -- ftp1.Host="192.168.0.1"必须是确定的地址 |
| -- 作者：leiguohui -- 发布时间：2020/12/22 15:31:00 -- 蓝老师：这样显示进入目录失败，是我哪里设置有问题吗 [15:30:16] 正在进入目录[/wj/] [15:30:16] [/wj/]进入失败,550 End Dim ftp1 As New FtpClient ftp1.Host="192.168.0.105" ftp1.Port = 21 ftp1.Account = "zrftp" ftp1.Password = "123" ftp1.DeleteEnabled =False \'禁用删除文件按钮 ftp1.RenameEnabled = False \'禁用重命名文件按钮 ftp1.RootDir = "\\wj" ftp1.OpenManager()
|
| -- 作者：有点蓝 -- 发布时间：2020/12/22 15:40:00 -- 1、ftp根目录里不存在wj这个目录 2、没有权限访问ftp目录，开放权限了没有？
|
| -- 作者：leiguohui -- 发布时间：2020/12/22 15:45:00 -- 我按照这里设置好了，我重新设置一次 [此贴子已经被作者于2020/12/22 15:46:39编辑过]
|