'******************** Code Start ************************** Option Compare Database Option Explicit Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean Declare Function GetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As Long nMaxCustrFilter 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 lCustrData As Long lpfnHook As Long lpTemplateName As Long End Type Public Const OFN_ALLOWMULTISELECT = &H200 Public Const OFN_CREATEPROMPT = &H2000 Public Const OFN_EXPLORER = &H80000 Public Const OFN_FILEMUSTEXIST = &H1000 Public Const OFN_HIDEREADONLY = &H4 Public Const OFN_NOCHANGEDIR = &H8 Public Const OFN_NODEREFERENCELINKS = &H100000 Public Const OFN_NONETWORKBUTTON = &H20000 Public Const OFN_NOREADONLYRETURN = &H8000 Public Const OFN_NOVALIDATE = &H100 Public Const OFN_OVERWRITEPROMPT = &H2 Public Const OFN_PATHMUSTEXIST = &H800 Public Const OFN_READONLY = &H1 Public Const OFN_SHOWHELP = &H10 Public Function OpenFile(ByVal InitDir As String, ByVal fname As String) As String Dim strFile As String * 512 Dim of As OPENFILENAME Dim F As String Dim p% ' Установка начальных значений структуры of.hwndOwner = Application.hWndAccessApp of.hInstance = 0 of.lpstrCustomFilter = 0 of.nMaxCustrFilter = 0 of.lpfnHook = 0 of.lpTemplateName = 0 of.lCustrData = 0 'Ниже вы можете изменить фильтры для поиска файлов of.lpstrFilter = "MS Access Database (*.mdb)" & Chr$(0) & "*.mdb" & Chr$(0) & _ "Add-ins (*.mda)" & Chr$(0) & "*.mda" & Chr$(0) & _ "MDE-Files (*.mde)" & Chr$(0) & "*.mde" & Chr$(0) & _ "All Files (*.*)" & Chr$(0) & "*.*" & Chr$(0) & Chr$(0) of.nFilterIndex = 3 of.lpstrFile = fname & String$(512 - Len(fname), 0) of.nMaxFile = 511 of.lpstrFileTitle = String$(512, 0) of.nMaxFileTitle = 511 ' Ниже вы можете изменить заголовок окна of.lpstrTitle = "Открыть модуль" of.lpstrInitialDir = InitDir ' Можете изменить расширение файла of.lpstrDefExt = "mde" of.Flags = OFN_FILEMUSTEXIST + OFN_PATHMUSTEXIST '+ OFN_EXPLORER of.lStructSize = Len(of) If GetOpenFileName(of) Then p% = InStr(1, of.lpstrFile, Chr$(0)) OpenFile = Left(of.lpstrFile, p% - 1) Else OpenFile = "" End If End Function '******************** Code End **************************
Ваш коментарий будет первым