Sub Example_Files()
    ' Этот пример получает ссылку к объекту Files Preferences от объекта
    ' Application Preferences, и читает один из параметров File
    
    Dim ACADPref As AcadPreferencesFiles
    
    ' Получите ссылку на объект Files Preferences
    Set ACADPref = ThisDrawing.Application.preferences.Files
    
    MsgBox "Мы теперь имеем доступ к свойствам и методам объекта Files Preferences! "
    MsgBox "Параметр File AutoSavePath установлен в: " & ACADPref.AutoSavePath
    
    ' Освобождаем объект Files Preferences
    Set ACADPref = Nothing
    MsgBox 
"Мы освободили объект Files Preferences! "
End Sub