主题：打开文件

Dim F1 As String = ProjectPath & "xp.txt"

F1 = FileSys.ReadAllText(F1,Encoding.Default)

Dim files() As String  = System.IO.Directory.GetFiles(F1 & "中兴规格书\" ,  e.Row("物料代码") & "*.xls")

If files.length > 0 Then

    For Each file As String In files

        Dim Proc As New Process

        Proc.File = file

        Proc.Start()

    Next

Else

    MessageBox.Show("文件不存在!","提示")

    'e.Cancel = True

End If