08. Это типовой диалог Windows, который позволяет выбрать файл. Есть диалог и Microsoft Office с аналогичными целями. Его смотрите в других примерах (14 Файлы).
'Структура файла, описание дано ниже
Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As Long
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 Long
End Type
'Функция открытия файла
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
FILENAME As OPENFILENAME) As Boolean
'Функция сохранения файла
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" ( _
FILENAME As OPENFILENAME) As Boolean
'Флажки для параметра OPENFILENAME.Flags
' (например, OFN_FILEMUSTEXIST Or OFN_READONLY)
Const OFN_READONLY = H1
Const OFN_OVERWRITEPROMPT = H2
Const OFN_HIDEREADONLY = H4
Const OFN_NOCHANGEDIR = H8
Const OFN_SHOWHELP = H10
Const OFN_ENABLEHOOK = H20
Const OFN_ENABLETEMPLATE = H40
Const OFN_ENABLETEMPLATEHANDLE = H80
Const OFN_NOVALIDATE = H100
Const OFN_ALLOWMULTISELECT = H200
Const OFN_EXTENSIONDIFFERENT = H400
Const OFN_PATHMUSTEXIST = H800
Const OFN_FILEMUSTEXIST = H1000
Const OFN_CREATEPROMPT = H2000
Const OFN_SHAREAWARE = H4000
Const OFN_NOREADONLYRETURN = H8000
Const OFN_NOTESTFILECREATE = H10000
Const OFN_SHAREFALLTHROUGH = 2
Const OFN_SHARENOWARN = 1
Const OFN_SHAREWARN = 0
Dim OFNAME As OPENFILENAME 'Назначаем переменную для файла
'==============================================================
' Назначение
' Открытие окна диалога файлов
' Параметры:
' strFilter - строка фильтра
' strIniFile - файл инициализации
' strTitleDlg - заголовок окна
' strDefExt - расширение по умолчанию
' strCurDir - текущая папка
'
Public Function funGetOpenFileName( _
hWnd As Long, _
strFilter As String, _
strIniFile As String, _
strTitleDlg As String, _
strDefExt As String, _
strCurDir As String) As String
Dim Flag As Boolean
'Заполним структуру перед вызовом GetOpenFileName
With OFNAME
.lStructSize = Len(OFNAME) 'Размер структуры в байтах
.hwndOwner = hWnd 'Указатель окна
.lpstrFilter = strFilter 'Фильтр отбора
.nFilterIndex = 1 'Индекс первой пары строк фильтра
.lpstrFile = strIniFile String$(512 - Len(strIniFile), 0) 'Полное имя файла
.nMaxFile = 511 'Размер буфера файла
.lpstrFileTitle = String$(512, 0) 'Только имя файла окна
.nMaxFileTitle = 511 'Размер буфера заголовка
.lpstrTitle = strTitleDlg 'Заголовок окна диалога
.flags = OFN_FILEMUSTEXIST 'Типы читаемых файлов
.lpstrDefExt = strDefExt 'Расширение файла по умолчанию
.lpstrInitialDir = strCurDir 'Каталог файлов по умолчанию
.hInstance = 0 'Идентификатор блока данных для OFN_ENABLETEMPLATE
.lpstrCustomFilter = 0 'Дополнительные фильтры, см. ниже
.nMaxCustFilter = 0 'не менее 40, 0 - игнорируется
.nFileOffset = 0 'О��ределяет смещение имени
.nFileExtension = 0 'Определяет расширение
.lCustData = 0 'Для собственных окон
.lpfnHook = 0 'Указатель на функцию фильтра
.lpTemplateName = 0 'Собственный диалог
'*** Старт
'If GetOpenFileName(OFNAME) = True Then 'Win 98 Попробуйте такой вариант
Flag = GetOpenFileName(OFNAME) 'Общий случай
If Flag Then 'Открываем диалог и находим имя файла
funGetOpenFileName = Left(.lpstrFile, InStr(.lpstrFile, Chr(0)) - 1)
Else
funGetOpenFileName = ""
End If
End With
End Function
'==============================================================
' Назначение
' Открытие окна диалога файлов
' Параметры:
' strFilter - строка фильтра
' strIniFile - файл инициализации
' strTitleDlg - заголовок окна
' strDefExt - расширение по умолчанию
' strCurDir - текущая папка
'
Public Function funGetSaveFileName( _
hWnd As Long, _
strFilter As String, _
strIniFile As String, _
strTitleDlg As String, _
strDefExt As String, _
strCurDir As String) As String
Dim Flag As Boolean
'Заполним структуру перед вызовом GetOpenFileName
With OFNAME
.lStructSize = Len(OFNAME) 'Размер структуры в байтах
.hwndOwner = hWnd 'Указатель окна
.lpstrFilter = strFilter 'Фильтр отбора
.nFilterIndex = 1 'Индекс первой пары строк фильтра
.lpstrFile = strIniFile String$(512 - Len(strIniFile), 0) 'Полное имя файла
.nMaxFile = 511 'Размер буфера файла
.lpstrFileTitle = String$(512, 0) 'Только имя файла окна
.nMaxFileTitle = 511 'Размер буфера заголовка
.lpstrTitle = strTitleDlg 'Заголовок окна диалога
.flags = OFN_FILEMUSTEXIST 'Типы читаемых файлов
.lpstrDefExt = strDefExt 'Расширение файла по умолчанию
.lpstrInitialDir = strCurDir 'Каталог файлов по умолчанию
.hInstance = 0 'Идентификатор блока данных для OFN_ENABLETEMPLATE
.lpstrCustomFilter = 0 'Дополнительные фильтры, см. ниже
.nMaxCustFilter = 0 'не менее 40, 0 - игнорируется
.nFileOffset = 0 'Определяет смещение имени
.nFileExtension = 0 'Определяет расширение
.lCustData = 0 'Для собственных окон
.lpfnHook = 0 'Указатель на функцию фильтра
.lpTemplateName = 0 'Собственный диалог
'*** Старт
'If GetOpenFileName(OFNAME) = True Then 'Win 98 Попробуйте такой вариант
Flag = GetSaveFileName(OFNAME) 'Общий случай
If Flag Then 'Открываем диалог и находим имя файла
funGetSaveFileName = Left(.lpstrFile, InStr(.lpstrFile, Chr(0)) - 1)
Else
funGetSaveFileName = ""
End If
End With
End Function