主题：能否在foxtable制作的软件中操作操作扫描软件？

Dim Proc As New Process '定义一个新的Process

Proc.File = "vuescan.exe" '指定要打开的程序

Proc.Start()

Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim r As Row = Tables("表A").Current

Dim Newname  As String

Newname=tx.value

FileSys.CopyFile(ApplicationPath &"scantemp\"& "temp.jpg", ProjectPath & "\Attachments\照片\" & r("身份证号码") & Newname &".jpg",True) '照片复制到Attachments目录

r("照片") = r("身份证号码")  & Newname & ".jpg"

Forms("输入名字").Close()