| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- ftp自动下载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170743) |
| -- 作者：aaa1234 -- 发布时间：2021/8/5 17:21:00 -- ftp自动下载 老师您好我想问一下，为什么我在界面里面上传后他看不了，打了个x，下载的话也显示正在下载中 |
| -- 作者：aaa1234 -- 发布时间：2021/8/5 17:22:00 -- 那个图片浏览器里面显示不了，我上传图片上去后，他打了个x，按下载他也是下载失败，正在下载中 |
| -- 作者：有点蓝 -- 发布时间：2021/8/5 17:41:00 -- 1、路径不正确 2、用户没有权限访问这个图片 检查ftp根目录有没有设置开放访问权限
|
| -- 作者：aaa1234 -- 发布时间：2021/8/6 10:32:00 -- 老师你看看我的代码看看那里错了，这代码是放在afterupload里面的 Dim i As Integer = 0 Dim dr As Row = Tables("Table_3").Current Dim ftp1 As new ftpclient ftp1.Host="172.16.120.41" ftp1.Account = "admin" ftp1.Password = "qw123" If ftp1.MakeDir(dr("系统单号")& dr("处理人")&"\\") Then Messagebox.Show("创建目录成功!") Else Messagebox.Show("已有重复的,请注意查看系统单号+处理人的文件夹!") End If If ftp1.FileExists("\\" &dr("系统单号")& dr("处理人")& "\\" & dr("系统单号")& dr("处理人")& ".jpg") Then For i = 1 To 999 If ftp1.FileExists("\\" &dr("系统单号")& dr("处理人")& "\\" & dr("系统单号")& dr("处理人")& "("& i &").jpg")=False Then Exit For End If Next End If If i > 0 Then ftp1.Rename(e.CurFolder & "/" & filesys.getname(e.LocalFile),"\\" &dr("系统单号")& dr("处理人")& "\\" & dr("系统单号")& dr("处理人")& "("& i &").jpg") Else ftp1.Rename(e.CurFolder & "/" & filesys.getname(e.LocalFile),"\\" &dr("系统单号")& dr("处理人")& "\\" & dr("系统单号")& dr("处理人")& ".jpg") End If |
| -- 作者：aaa1234 -- 发布时间：2021/8/6 10:33:00 -- 他的意思是首选看一下有没有这个文件夹，没有就添加，有就放里面，然后改名，多张就（+1），不知道为什么自己能看得到，别人就看不到，还打个x下载不了 |
| -- 作者：aaa1234 -- 发布时间：2021/8/6 10:41:00 -- 我自己的话是可以看的，在foxtable，但是安装了就看不了 |
| -- 作者：有点蓝 -- 发布时间：2021/8/6 10:55:00 -- 到其它电脑测试下面代码，看能不能访问ftp，访问后能不能看到目录和文件 Dim ftp1 As new ftpclient ftp1.Host="172.16.120.41" ftp1.Account = "admin" ftp1.Password = "qw123" ftp1.OpenManager
|
| -- 作者：aaa1234 -- 发布时间：2021/8/6 10:59:00 -- 可以访问 |
| -- 作者：有点蓝 -- 发布时间：2021/8/6 11:12:00 -- 访问后能不能看到目录和文件，对比一下文件路径，看和单元格里路径是否一致 |
| -- 作者：aaa1234 -- 发布时间：2021/8/6 11:32:00 -- 一样 |