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
[此贴子已经被作者于2020/10/26 8:32:52编辑过]