Открытие файла с помощью GetOpenFileName

[eda]

Private Type OPENFILENAME
    lpstrFileTitle          As String
    lpstrInitialDir         As String
    lpstrTitle              As String
End Type

Public Function ShowOpenDlg(ByVal WindowTitle As String, ByVal FileFilter As String, _
                            ByVal DefExt As String, ByVal InitialDir As String) As String
Const BUFFER_SIZE As Integer = 1024
Dim FileName As String      'буфер для различных имён файлов
Dim result As Long          'результат функции GetOpenFileName
Dim ofn As OPENFILENAME     'структура для вызова функции открытия файла
FileName = vbNullString
result = 0
ofn.lpstrFilter = FileFilter
ofn.lpstrInitialDir = InitialDir
ofn.lpstrTitle = WindowTitle
result = GetOpenFileName(ofn)
If Not result = 0 Then FileName = ofn.lpstrFile
ShowOpenDlg = FileName
End Function

Есть вот такой код, в результате которого открывается папка, кот открывалась ранее, а не InitialDir. Как это можно исправить?

[mc-black]

Вообще-то не может не работать, проверьте, какое значение передается в буфер по адресу в ofn.lpstrInitialDir. Но в любом случае есть и обходной путь, читаем документацию:
lpstrInitialDir. Pointer to a string that specifies the initial file directory. If this member is NULL, the system uses the current directory as the initial directory.
То есть можете перед вызовом GetOpenFileName сменить текущую директорию.