Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.InitialDirectory = ProjectPath
Dim fs = FileSys.GetFiles(ProjectPath)
If fs.count > 0
dlg.FileName = fs(0)
End If
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If