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
加好友 
发短信
Post By：2021/8/16 10:24:00 [只看该作者]
