| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 截图上传保存 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171050) |
|
| -- 作者：aaa1234 -- 发布时间：2021/8/16 10:24:00 -- 截图上传保存 Forms("录入窗口").baseform.WindowState =1 ClipBoard.Clear system.Threading.Thread.Sleep(1000) Dim proc As new Process Dim ftp1 As New FtpClient Dim i As Integer = 0 Dim dr As Row = Tables("Table_3").Current proc.File = ApplicationPath & "capture.exe" proc.WaitForClose = True proc.Start If ClipBoard.GetImage IsNot Nothing Then ClipBoard.GetImage.save("d:\\test.jpg") 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.Upload("d:\\test.jpg") = True Then Else End If If ftp1.FileExists("\\" &dr("单号") &dr("客户姓名")& "\\" & dr("单号")& "截图" & ".jpg") Then For i = 1 To 999 If ftp1.FileExists("\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& "截图" & "("& i &").jpg")=False Then Exit For End If Next End If If i > 0 Then ftp1.Rename("\\test.jpg","\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& "截图" &"("& i &").jpg") e.Form.Controls("PictureViewer1").AddFile("\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& "截图" &"("& i &").jpg") Else ftp1.Rename("\\test.jpg","\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& "截图" &".jpg") e.Form.Controls("PictureViewer1").AddFile("\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& "截图" &".jpg") End If End If Forms("录入窗口").baseform.WindowState =0
|
|
| -- 作者：aaa1234 -- 发布时间：2021/8/16 10:26:00 -- 老师您好，我想问一下我截图上传的，为什么，有一些数据他上传不了到ftp里面，而有一些数据就可以上传上去，我有一条数据单号是113-5750091-8061838客户姓名sze，就不行，其他的都可以 |
|
| -- 作者：有点蓝 -- 发布时间：2021/8/16 10:29:00 -- 可能对文件名称和路径有限制，去掉特殊符号试试 |
|
| -- 作者：aaa1234 -- 发布时间：2021/8/16 10:41:00 -- 怎么把那些符号切掉 |
|
| -- 作者：有点蓝 -- 发布时间：2021/8/16 10:52:00 -- 是这里上传不成功？上传不了下面提示哪一个？ If ftp1.Upload("d:\\test.jpg") = True Then msgbox("成功") Else msgbox("不成功") End If |
|
| -- 作者：aaa1234 -- 发布时间：2021/8/16 10:53:00 -- 去掉符号也不行 |
|
| -- 作者：aaa1234 -- 发布时间：2021/8/17 16:33:00 -- 老师ftp那里是不是应该设置什么，我很多条数据都可以上传唯独有一条单号为111-2168953-7185030 姓名为Bruce Asborno 搞不了 |
|
| -- 作者：aaa1234 -- 发布时间：2021/8/17 16:35:00 -- Forms("录入窗口").baseform.WindowState =1 system.Threading.Thread.Sleep(1000) Dim proc As new Process Dim ftp1 As New FtpClient Dim i As Integer = 0 Dim dr As Row = Tables("Table_3").Current proc.File = ApplicationPath & "capture.exe" proc.WaitForClose = True proc.Start If ClipBoard.GetImage IsNot Nothing Then ClipBoard.GetImage.save("d:\\test.jpg") 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.Upload("d:\\test.jpg") = True Then msgbox("成功") Else msgbox("不成功") 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("\\test.jpg","\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& dr("客户姓名")& "截图" &"("& i &").jpg") e.Form.Controls("PictureViewer1").AddFile("\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& dr("客户姓名")& "截图" &"("& i &").jpg") ftp1.Delete("/test.jpg") Else ftp1.Rename("\\test.jpg","\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& dr("客户姓名")& "截图" &".jpg") e.Form.Controls("PictureViewer1").AddFile("\\" &dr("单号")& dr("客户姓名")& "\\" & dr("单号")& dr("客户姓名")& "截图" &".jpg") ftp1.Delete("/test.jpg") End If End If Forms("录入窗口").baseform.WindowState =0 代码入下 |
|
| -- 作者：aaa1234 -- 发布时间：2021/8/17 16:36:00 -- 唯独只有一个上传不了 好玄学啊老师
[此贴子已经被作者于2021/8/17 16:55:05编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2021/8/17 17:24:00 --
|