Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
swimmer01
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		[求助]  发帖心情 Post By：2020/12/7 21:27:00 [显示全部帖子]

老师，您好！
以下代码运行时，打开word程序启动了，但没打开文件。如果将.doc换成.docx，出现找不到文件（注：在同一位置两种文件都有）的提示！不知咋会事，请指点！（本人装的是MS Office 2007）
'****************复制模板文件
Dim ywjj As String = ProjectPath & "Attachments\模板文件\项目工作\"     '源文件夹
Dim mwjj As String = SpecialFolder.DesktopDirectory & "\" & _Xm_No & "\项目管理\"   '目标文件夹
Dim wjm As String = "项目协调程序.doc"   '模板文件名
Dim mwjm As String = "项目协调程序.doc"   '目标文件名
Dim File As String = mwjj & mwjm
FileSys.CopyFile(ywjj & wjm,mwjj & mwjm,True)

'***************打开文件
Dim Proc As New Process   '定义一个新的Process
Proc.File = File            '指定要打开的文件
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 21:54:00 [显示全部帖子]

刚测试了，路径好像是正确

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 21:56:00 [显示全部帖子]

打开文件夹没问题

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 22:00:00 [显示全部帖子]

有复制后的文件，直接打开文件没有问题

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 22:06:00 [显示全部帖子]

另外，源文件用.dotx格式文件就没问题，但是用.docx格式文件,就会提示找不到文件。不知咋回事。

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


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 22:56:00 [显示全部帖子]

复制到D盘，也不行

Dim mwjj As String = "d:\2057\项目管理\"   '目标文件夹
Dim mwjm As String = "项目协调程序.doc"   '目标文件名
Dim File As String = mwjj & mwjm

msgbox(FileSys.FileExists(File))
'***************打开文件
Dim Proc As New Process   '定义一个新的Process
Proc.File = File            '指定要打开的文件
'proc.verb="openasreadonly"
Proc.Start()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询