Private Sub Кнопка12_Click()

'    ПЕРЕМЕННЫЕ

    Dim strFileName As String 'полного пути к выбранному файлу
    Dim intResult As Integer  '
    
    Dim strIns As String 'текста запроса SQL на добавление (вставку)
    Dim fso As Object    'объекта FileSystemObject
    Dim f As Object      'объекта File, входящего в FileSystemObject
    
'    ВЫПОЛНЕНИЕ (FileDialog - объект, инициализируемый динамически, без переменной)

    With Application.FileDialog(msoFileDialogFilePicker)
    
        .AllowMultiSelect = False                       'только один файл
        .InitialFileName = "C:\Users\Андрей\Desktop"    'начальная директория поиска
'        .InitialFileName = CurrentProject.Path & "\files\"
        intResult = .Show
        If (intResult <> 0) Then
            strFileName = Trim(.SelectedItems.Item(1)) 'обрезаем пробелы с обеих сторон названия файла
'            текст запроса:
            strIns = "INSERT INTO FileNames (filenamesWithExtensions) VALUES ('" & strFileName & "');"
'            выполнение запроса из кода VBA:
            CurrentDb.Execute strIns
'            инициализация объекта FileSystemObject
            Set fso = CreateObject("Scripting.FileSystemObject")
            'инициализация его "под-объекта" File:
            Set f = fso.GetFile(strFileName)
'            метод Copy объекта File:
'            первый аргумент - целевой каталог
'            (св-во текущ каталог + папка + св-во объекта File, возвращающее только его имя из полного пути),
'            второй аргумент - не заменять файл, если уже существует:
            f.Copy CurrentProject.Path & "\files\" & f.Name, False
'            освобождение памяти от инициализированных объектов:
            Set fso = Nothing: Set f = Nothing
                
        End If
    End With

End Sub