Dim Multi As String = ".xls|.doc|.mdb|.docx" Dim Values() As String Values = Multi.split("|") For Index As Integer = 0 To Values.Length - 1 If FileSys.FileExists(dr("字符") & "工程\工艺卡\" & cr("产品编号") & Values(Index)) Then Dim fl As String = dr("字符") & "工程\工艺卡\" & cr("产品编号") & Values(Index)) Dim Proc As New Process Proc.File = fl Proc.Start() End If Next
|