Simone
'要先单击“工程－部件”，显示“部件”对话框，将“Microsoft Common Dialog control 6.0(SP6)”选中，在工具栏就多出了一个CommonDialog控件图标，将其添加到窗体上Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNReadOnly'建立对话框好或腊时，只读复选框初始友滑化为选定。该标志也指示对话框关闭时只读复选框的状态CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.Txt)|*.txt"'过滤器，只让需要的文件显示出来CommonDialog1.FilterIndex = 1'优先显示过滤器中第一选项（本例团派中就是All Files(*.*)|*.*|）CommonDialog1.ShowOpen'显示打开对话框MsgBox CommonDialog1.FileName'显示选定文件的路径及文件名End Sub
