以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  文件打开判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152598)

--  作者：实话实说 --  发布时间：2020/7/16 9:34:00 --  文件打开判断 以下代码哪里错了？ Dim Proc As New Process Dim Fl As String = ProjectPath & "xp.txt" Fl = FileSys.ReadAllText(Fl,Encoding.Default) If FileSys.FileExists("Proc") Then     Proc.File = Fl & "操作指南.doc" Else     Proc.File = Fl & "操作指南.docx" End If Proc.Start()

--  作者：有点蓝 --  发布时间：2020/7/16 9:37:00 --   没看懂，这代码是想干嘛？xp.txt里面存储的是什么内容？

--  作者：实话实说 --  发布时间：2020/7/16 9:45:00 --   打开制定目录下的"操作指南"文件，通常word有2个后缀名，要先判断再打开。上面代码只能打开docx后缀名文件

--  作者：实话实说 --  发布时间：2020/7/16 9:47:00 --   xp.txt = \\\\吴志宏\\WG-CableERP数据\\  是路径

--  作者：有点蓝 --  发布时间：2020/7/16 10:01:00 --   Dim Proc As New Process Dim Fl As String = ProjectPath & "xp.txt" Fl = FileSys.ReadAllText(Fl,Encoding.Default) & "操作指南.doc" If FileSys.FileExists(Fl) Then     Proc.File = Fl Else     Proc.File = Fl & "x" End If Proc.Start()

--  作者：实话实说 --  发布时间：2020/7/16 10:13:00 --   5楼代码与1楼代码一样，找不到文件。我现在的文件是 "操作指南.docx"。如果换成 "操作指南.doc"，则可以打开。

--  作者：有点蓝 --  发布时间：2020/7/16 10:16:00 --   说明这个目录里就没有这个文件。另外好像docx好像office默认是限制在共享里使用的，复制到本机试试

--  作者：实话实说 --  发布时间：2020/7/16 10:39:00 --   换成以下代码可以代开"操作指南".docx。好像只能执行 Fl = FileSys.ReadAllText(Fl,Encoding.Default) & "操作指南.docx"  这段代码，else后面代码出错。 现在路径下的文件是"操作指南.docx" 换成"操作指南.doc"就出错 应该是代码问题  Dim Proc As New Process Dim Fl As String = ProjectPath & "xp.txt" Fl = FileSys.ReadAllText(Fl,Encoding.Default) & "操作指南.docx" If FileSys.FileExists(Fl) Then     Proc.File = Fl Else     Proc.File = Fl & "操作指南.doc" End If Proc.Start()

--  作者：有点蓝 --  发布时间：2020/7/16 10:51:00 --   Dim Proc As New Process Dim Fl As String = ProjectPath & "xp.txt" Fl = FileSys.ReadAllText(Fl,Encoding.Default)  If FileSys.FileExists(Fl & "操作指南.docx") Then     Proc.File = Fl & "操作指南.docx" Else     Proc.File = Fl & "操作指南.doc" End If Proc.Start()

--  作者：实话实说 --  发布时间：2020/7/16 10:56:00 --   可以了，谢谢。