| 以文本方式查看主题 - 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=170642) |
| -- 作者：aaa1234 -- 发布时间：2021/8/3 8:53:00 -- 刷新ftp文件 老师我想问一下您，如何运用代码刷新ftp上传的文件， |
| -- 作者：aaa1234 -- 发布时间：2021/8/3 8:53:00 -- Dim i As Integer = 0 Dim dr As Row = Tables("Table_1").Current Dim ftp1 As new ftpclient ftp1.Host="172.16.120.41" ftp1.Account = "admin" ftp1.Password = "qw123" If ftp1.FileExists(dr("系统单号")& dr("处理人")& ".jpg") Then For i = 1 To 999 If ftp1.FileExists(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("处理人")& "("& i &").jpg") Else ftp1.Rename(e.CurFolder & "/" & filesys.getname(e.LocalFile), dr("系统单号") & dr("处理人")& ".jpg") End If
|
| -- 作者：aaa1234 -- 发布时间：2021/8/3 8:54:00 -- 这是我的代码，我这要上传之后要手动刷新，才能把名字更改，我想在里面插入条刷新一次的代码，可以实现吗 |
| -- 作者：有点蓝 -- 发布时间：2021/8/3 9:02:00 -- 文件没有刷新这种说法 |
| -- 作者：aaa1234 -- 发布时间：2021/8/3 9:04:00 -- 那我应该在哪里插入删除代码呢，谢谢老师 |
| -- 作者：有点蓝 -- 发布时间：2021/8/3 9:26:00 -- 感觉逻辑就搞错了，应该是在上传前就按照新的名称上传，而不是上传后再改名。 |