Sub Example_DriversPath()
    ' Этот пример возвращает текущую установку DriversPath. Затем изменяет
    ' значение, и наконец сбрасывает значение назад к первоначальной
    ' установке.
    
    Dim preferences As AcadPreferences
    Dim currDriversPath As String
    Dim newDriversPath As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение DriversPath
    currDriversPath = preferences.Files.DriversPath
    MsgBox "Текущее значение для DriversPath " & currDriversPath, vbInformation, "DriversPath Пример"
    
    ' Измените значение для DriversPath
    newDriversPath = "TestDriversPath"
    preferences.Files.DriversPath = newDriversPath
    MsgBox "Новое значение для DriversPath " & newDriversPath, vbInformation, "DriversPath Пример"
    
    ' Сбросьте DriversPath к его первоначальному значению
    preferences.Files.DriversPath = currDriversPath
    MsgBox "Значение DriversPath сброшено к " & currDriversPath, vbInformation, "DriversPath Пример"
End Sub