使用与 Win32API 文件通用对话框打开对话框

       'http://support.microsoft.com/kb/161286/

       Option   Explicit

        Private   Declare   Function  GetOpenFileName  Lib   " comdlg32.dll "   Alias  _
          " GetOpenFileNameA "  (pOpenfilename  As  OPENFILENAME)  As   Long

        Private  Type OPENFILENAME
         lStructSize  As   Long
         hwndOwner  As   Long
         hInstance  As   Long
         lpstrFilter  As   String
         lpstrCustomFilter  As   String
         nMaxCustFilter  As   Long
         nFilterIndex  As   Long
         lpstrFile  As   String
         nMaxFile  As   Long
         lpstrFileTitle  As   String
         nMaxFileTitle  As   Long
         lpstrInitialDir  As   String
         lpstrTitle  As   String
         flags  As   Long
         nFileOffset  As   Integer
         nFileExtension  As   Integer
         lpstrDefExt  As   String
         lCustData  As   Long
         lpfnHook  As   Long
         lpTemplateName  As   String
        End  Type

        Private   Sub  Command1_Click()
          Dim  OpenFile  As  OPENFILENAME
          Dim  lReturn  As   Long
          Dim  sFilter  As   String
         OpenFile.lStructSize  =   Len (OpenFile)
         OpenFile.hwndOwner  =  Form1.hWnd
         OpenFile.hInstance  =  App.hInstance
         sFilter  =   " Batch Files (*.bat) "   &   Chr ( 0 )  &   " *.BAT "   &   Chr ( 0 )
         OpenFile.lpstrFilter  =  sFilter
         OpenFile.nFilterIndex  =   1
         OpenFile.lpstrFile  =   String ( 257 ,  0 )
         OpenFile.nMaxFile  =   Len (OpenFile.lpstrFile)  -   1
         OpenFile.lpstrFileTitle  =  OpenFile.lpstrFile
         OpenFile.nMaxFileTitle  =  OpenFile.nMaxFile
         OpenFile.lpstrInitialDir  =   " C: "
         OpenFile.lpstrTitle  =   " Use the Comdlg API not the OCX "
         OpenFile.flags  =   0
         lReturn  =  GetOpenFileName(OpenFile)
          If  lReturn  =   0   Then
             MsgBox   " The User pressed the Cancel Button "
          Else
             MsgBox   " The user Chose  "   &   Trim (OpenFile.lpstrFile)
          End   If
        End Sub