如何打开指定文件夹下面任何一个文件？如文件夹（名称：工程类）下有文件：AA，DF,GL,
Dim dlg As New OpenFileDialog
dlg.Filter = "资料文件|*.doc;*.docx;*.xls;*.xlsx;*.png;*.dwg;*.pdf;*.jpg;*.zip;*.rar;*.HzTbs;"
If dlg.ShowDialog = DialogResult.OK Then
Dim flnm As String = dlg.FileName '要添加的文件名
Dim pth As String = ProjectPath & "Attachments\工程类\"
If FileSys.DirectoryExists(pth) = False Then '判断指定的目录是否存在
FileSys.CreateDirectory(pth) '创建目录
End If
End If
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()
Dim dlg As New OpenFileDialog
dlg.Filter = "资料文件|*.doc;*.docx;*.xls;*.xlsx;*.png;*.dwg;*.pdf;*.jpg;*.zip;*.rar;*.HzTbs;"
dlg.InitialDirectory = ProjectPath & "Attachments\工程类\"
If dlg.ShowDialog = DialogResult.OK Then
Dim Proc As New Process '打开文件
Proc.File = dlg.FileName
Proc.Start()
End If