CommonDialog

1.设置默认的文件名
    CommonDialog1.FileName = "*.sql"　’默认名
2。设置默认的路径
    CommonDialog1.InitDir = "C:/"  　默认路径
3。判断是否点击消息按钮

先设置   CommonDialog.CancelError   =   True 
  然后在点击“Cancel”时，就会产生32755   (cdlCancel)   号错误。 
  这样就可以判别用户是否点击“Cancel”的事件。
例：
 Private   Sub   Command1_Click() 
  '   设置“CancelError”为   True 
  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