Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文件监视器的代码改写求助？


  共有5443人关注过本帖树形打印复制链接

主题：[求助]文件监视器的代码改写求助？
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]文件监视器的代码改写求助？  发帖心情 Post By：2013/12/6 8:19:00 [显示全部帖子]

下面的这段代码，如何改写成，当点击“扫描文件”按钮时，能出现一个对话框，找到扫描软件，启动扫描软件，而不是指定位置。

最后在菜单或者窗口中加一个按钮，用于启动第三方扫描软件：

Dim Proc As New Process
Proc.File = "拍照程序的路径和名称"   如何把它改为查找路径？
Proc.Start()

Proc.WaitForExit() '等带拍照程序退出。




谢谢

[此贴子已经被作者于2013-12-6 8:20:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：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() '等带拍照程序退出
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 9:23:00 [显示全部帖子]

谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 10:41:00 [显示全部帖子]

下列代码是扫描图片后，保存的列为“影印件”，保存后，当打开影印件列时，不能找到图片，怎么处理：
Dim r As Row = Tables("收文登记").Current
r("影印件") = r("收文编号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("影印件"),True)
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 10:43:00 [显示全部帖子]

如图：
图片点击可在新窗口打开查看此主题相关图片如下：截图00.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 10:51:00 [显示全部帖子]

上一问题已解决，但我想让下边的文件自动复制到指定的目录中行不？
默认情况下，每当我们在文件型、多文件型、以及图片型列中插入一个文件时，程序会自动将该文件复制到项目文件所在目录的子目录Attachments下，之后我们使用的都是这些新复制的文件，和原来的文件不再有任何联系。

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 11:06:00 [显示全部帖子]

在哪写代码
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 11:23:00 [显示全部帖子]

谢谢，弄明白了，非常感谢

 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1145 积分：8926 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2013/12/6 11:34:00 [显示全部帖子]

“影印件”列的存放目录，怎么才能设置为按安装软件的目录下的Attachments里边，现在我设置的为E:\开发版办公收文系统\办公收文系统\Attachments\影印文件夹，如果软件生成后，如何自动设置为：安装软件的目录下的Attachments里边。如图：
图片点击可在新窗口打开查看此主题相关图片如下：截图01.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询