如何在程序中显示“打开文件”窗口？

Question

就是从硬盘中找一个文件的窗口，谢谢！

Answer 1

Private Sub Command1_Click()  
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler  
  CommonDialog1.Flags = cdlOFNHideReadOnly
  CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
  "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
  CommonDialog1.FilterIndex = 2  
  CommonDialog1.ShowOpen  
  MsgBox CommonDialog1.filename
  Exit Sub  
ErrHandler:
  Exit Sub
End Sub

Answer 2

需要引入或者直接选企业版里面就有
http://www.china-askpro.com/msg17/qa38.shtml

Answer 3

加入CommonDialog控件
看MSDN吧