- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]文件监视器的代码改写求助？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43394)
-- 发布时间：2013/12/6 8:19:00
-- [求助]文件监视器的代码改写求助？
下面的这段代码，如何改写成，当点击“扫描文件”按钮时，能出现一个对话框，找到扫描软件，启动扫描软件，而不是指定位置。
最后在菜单或者窗口中加一个按钮，用于启动第三方扫描软件：
Dim Proc As New Process
Proc.File = "拍照程序的路径和名称" 如何把它改为查找路径？
Proc.Start()
Proc.WaitForExit() \'等带拍照程序退出。
谢谢
[此贴子已经被作者于2013-12-6 8:20:27编辑过]
-- 发布时间：2013/12/6 8:22:00
--
参考：
http://www.foxtable.com/help/topics/0328.htm
-- 发布时间：2013/12/6 9:13:00
--
狐爸，帮我改一下，现在的代码提示：找不到文件名。
Dim Proc As New Process
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Proc.File = "dlg.FileName"
Proc.Start()
Proc.WaitForExit() \'等带拍照程序退出
-- 发布时间：2013/12/6 9:13:00
--
Proc.File = dlg.FileName
-- 发布时间：2013/12/6 9:23:00
--
谢谢
-- 发布时间：2013/12/6 10:41:00
--
下列代码是扫描图片后，保存的列为“影印件”，保存后，当打开影印件列时，不能找到图片，怎么处理：
Dim r As Row = Tables("收文登记").Current
r("影印件") = r("收文编号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("影印件"),True)
-- 发布时间：2013/12/6 10:43:00
--
如图：
此主题相关图片如下：截图00.png
-- 发布时间：2013/12/6 10:45:00
--
检查路径是否正确,路径中有图片.
-- 发布时间：2013/12/6 10:51:00
--
上一问题已解决，但我想让下边的文件自动复制到指定的目录中行不？
默认情况下，每当我们在文件型、多文件型、以及图片型列中插入一个文件时，程序会自动将该文件复制到项目文件所在目录的子目录Attachments下，之后我们使用的都是这些新复制的文件，和原来的文件不再有任何联系。
-- 发布时间：2013/12/6 10:58:00
--
你指定的保存路径在哪里,就会自动复制到哪里的.