Dim wj As String = ProjectPath & "tp.txt"wj = FileSys.ReadAllText(wj,Encoding.Default)If FileSys.FileExists(wj) Dim Proc As New Process Proc.File = wj & "操作指南.docx" Proc.Start()Else MessageBox.Show("文件不存在!","提示") msgbox(wj & "操作指南.docx") End If
此主题相关图片如下:snap2.jpg
tp.txt路径:\\吴志宏\ZH-CableERP数据\
文件夹已经共享
上面的乱码已经解决。还有一个乱码问题:每次重新进入项目后计算机名就乱码,需要重新输入。(计算机名是中文)