以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打开外部文件代码,文件名相同，但后缀不一样？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84839)
--  作者：wusim
--  发布时间：2016/5/11 17:06:00
--  [求助]打开外部文件代码,文件名相同，但后缀不一样？

打开外部文件代码,文件名相同，但后缀不一样？如：111.xls 、111.doc

Dim f As String = ProjectPath & "合格证\\" & Tables("基本信息表").Current("出厂编号") &  ".doc" 这一代码怎样改
If FileSys.FileExists(f) Then
    Dim Proc As New Process \'定义一个新的Process
    Proc.File = f \'指定要打开的文件
    Proc.Start()
Else
    msgbox("文件不存在")
End If
 
Dim f As String = ProjectPath & "合格证\\" & Tables("基本信息表").Current("出厂编号") &  ".*" 这一句过不了
--  作者：大红袍
--  发布时间：2016/5/11 17:35:00
--  

Dim f As String = ProjectPath & "合格证\\"
For Each fname As String In FileSys.GetFiles(f)
    If fname Like (f & Tables("基本信息表").Current("出厂编号") & ".*") Then
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = f \'指定要打开的文件
        Proc.Start()
    End If
next

[此贴子已经被作者于2016/5/11 17:35:27编辑过]