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


  共有2486人关注过本帖平板打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
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()

 回到顶部