Открытие диалового окна выбора файлов в win64

[vlkr]

Для открытия диалогового окна в win 32 я использую метод GetOpenFileName

Private Sub Browse_Click()
Dim NewName As String
On Error GoTo Err_Browse_Click
Dim i As Integer
    i = GetDBFileNameDlg(0, NewName)
If i = -1 Then
    Me.Pname.Value = NewName
    Pname = NewName
End If
Exit_Browse_Click:
    Exit Sub

Err_Browse_Click:
    MsgBox Err.Description
    Resume Exit_Browse_Click
End Sub

Function GetDBFileNameDlg(HWn As Long, fName As String) As Integer
On Error GoTo Err_
Dim l As Long
Dim pOpenfilename As OPENFILENAME
   fName = ""
   GetDBFileNameDlg = False
pOpenfilename.lStructSize = Len(pOpenfilename)
pOpenfilename.lpstrFilter = "*.accdb" + Chr(0) + "*.accdb" + Chr(0) + Chr(0)
pOpenfilename.lpstrFile = String(255, Chr(0))
pOpenfilename.nMaxFile = 255
pOpenfilename.lpstrTitle = "Choose the file with table of database"
pOpenfilename.hwndOwner = HWn
pOpenfilename.lpstrInitialDir = "C:\"

l = GetOpenFileName(pOpenfilename)
If l = 1 Then
   fName = pOpenfilename.lpstrFile
   GetDBFileNameDlg = True
End If

Exit_:
   Exit Function

Err_:
    MsgBox Err.Description
    Resume Exit_
End Function

Option Compare Database
Option Explicit
Dim DATADbName As Variant

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

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

Этот код работает в win32, а win 64 нет. Диалоговое окно не вызывается,
что-бы вы долго не разбирались в коде обратите внимание на этот код

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

Везде пишут что для 64 необходимо PtrSafe и это так без этого 64 выдает ошибку. 32 рабодает как с PtrSafe так и без PtrSafe. В 64 у меня окно не вызывается. Поиск в интернете результатов не дал.

Помогите кто чем сможет.

[Teslenko_EA]

Здравствуйте vlkr.
Для выбора имени файла достаточно подключить к проекту библиотеку Microsoft Office XX.0 Object Library
и использовать стандартный диалог (без применения API как в Вашем примере)
диалоги у Office такие:
1 - msoFileDialogOpen
2 - msoFileDialogSaveAs
3 - msoFileDialogFilePicker
4 - msoFileDialogFolderPicker
а использовать можно например так:

Function getOpenFileDialog$(Optional sInitFolder$)
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "Открыть файл"
        .Filters.Clear
        .Filters.Add "MS Access 2007", "*.accdb"
        .AllowMultiSelect = False
        .InitialFileName = sInitFolder
        If Not .Show = 0 Then getOpenFileDialog = Trim(.SelectedItems.Item(1))
    End With
End Function

Евгений.

[vlkr]

Спасибо! Буду пробовать.