مساعدة في CommonDialog

جرب هذا

Private Sub Command1_Click()
  ' Set CancelError is True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Set flags
  CommonDialog1.Flags = cdlOFNHideReadOnly
  ' Set filters
  CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
  "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
  ' Specify default filter
  CommonDialog1.FilterIndex = 2
  ' Display the Open dialog box
  CommonDialog1.ShowOpen
  ' Display name of selected file
  MsgBox CommonDialog1.filename
  Exit Sub

ErrHandler:
  'User pressed the Cancel button
  Exit Sub
End Sub

والله ولى التوفيق

;)

مشكور أخي والله الواحد يحتار كيف يشكركم على كل هي مني إلك(f) (f) (f) (f)