主题：请问一下，像这个有没有可能截图之后直接就上传了，不用在文件夹那里去查找呢，因为这里上传的文件几乎都是直接截图的

编写代码实现->截图->保存为文件->上传

截图、保存

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    msgbox("保存到了d盘")
    ClipBoard.SetText("d:\test.jpg")
End If

上传、填写到表格

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("d:\test.jpg","/test.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Dim r As Row = Tables("表A").current
    Dim ls = r.DataRow.Lines("图片")
    ls.add("/test.jpg")
    r.DataRow.Lines("图片")= ls
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

截图代码

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start

获取截图内容

If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    msgbox("保存到了d盘")
    ClipBoard.SetText("d:\test.jpg")
End If

路径要这样写

If ftp1.Upload("d:\test.jpg","/test.jpg") = True Then '/web文件管理器/test.jpg

改一下代码即可，如

Dim ftp1 As New FtpClient
ftp1.Host="120.79.56.106"
ftp1.Account = "ftpuser"
ftp1.Password = "qwe123,."
Dim fname As String = format(Date.now, "yyyyMMddHHmmssfff") & ".jpg"
If ftp1.Upload("d:\test.jpg","\web文件管理器\" & fname)= True Then
    PopMessage("上传完成","提示",PopIconEnum.OK,2)
    ' Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Dim r As Row = Tables("平台合伙人订单数据").current
    Dim ls = r.DataRow.Lines("财务支出_上传支出凭据")
    ' ls.add("/test.jpg")
    ls.add("/web文件管理器/" & fname)
    r.DataRow.Lines("财务支出_上传支出凭据")= ls
Else
    PopMessage("上传失败","提示",PopIconEnum.Error,2)
    '  Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If