Public Function funCompactDatabase(strMDB As String) As Boolean

Dim tmpMDB As String, fs, sFullPath As String

    On Error GoTo 999  'Назначаем переход по ошибке

    funCompactDatabase = False 'Возвращаем результат при ошибке

    sFullPath = appFolder & "\" & strMDB 'Устанавливаем полное имя файла

    Set fs = CreateObject("Scripting.FileSystemObject") 'Создаем файловую систему

    tmpMDB = fs.GetTempName 'Получаем временный файл

    DBEngine.CompactDatabase sFullPath, tmpMDB, dbLangCyrillic 'Сжимаем базу данных

    fs.CopyFile tmpMDB, sFullPath, True 'Переписываем файл

    Kill tmpMDB 'Удаляем временный файл

    Set fs = Nothing 'Уничтожаем объект файловой системы

    funCompactDatabase = True 'Возвращаем результат

    Exit Function 'Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

Содержание раздела

---

---