私人？Sub？Command1_Click()
？將“CancelError”設置為？真實的
CommonDialog1。CancelError？=?真實的
開？錯誤？GoTo？錯誤處理程序
？設置標誌
CommonDialog1。旗幟？=?cdlOFNHideReadOnly
？設置過濾器
CommonDialog1。過濾器？=?“全部？文件？(*.*)|*.* |文字？文件"？& amp？_
"(*.txt)|*。txt |批量？文件？(*.bat)|*。蝙蝠”
？指定默認過濾器。
CommonDialog1。FilterIndex？=?2
？顯示“打開”對話框。
CommonDialog1。ShowOpen
？顯示選定文件的名稱。
MsgBox？CommonDialog1。文件名
退出？潛水艇
錯誤處理程序:
？用戶按下了“取消”按鈕。
退出？潛水艇
結束？潛水艇
CommonDialog？參見: