Сохранение информационной базы 1с

У меня один компьютер. Стоит 1С допустим если полетит операционка WindowsXP При установке заново возможно ли сохранение информации 1С и работа данной программы под новой операционкой?

(вариант установка изначально 1С на диск d:\)

Какие варианты можно использовать и как это самое реализовывается ? Спасибо заранее

Способов несколько.

1) Тупое копирование базы в другую директорию

2) Зайти под конфигуратором и в меню Администрирование -> Сохранить данные, что более правильно и менее ресурсоёмко.



ПС: Для восстановления данных сохранённых по пункту 2, делаем то же самое, только вместо "Сохранить данные" выбираем "Восстановить данные".

"Повесь в меню следующую обработку:



Процедура Коп();

Если МонопольныйРежим()=1 Тогда

Предупреждение("В монопольном режиме копирование файлов невозможно!");

Иначе;

КБ = КаталогИБ();

КК = "С:\1SbDb";

Если ФС.СуществуетФайл(КК) = 0 Тогда

ФС.СоздатьКаталог(КК);

КонецЕсли;

ЗапуститьПриложение("xcopy "+КБ+"*.dbf "+КК+" /y");

ЗапуститьПриложение("xcopy "+КБ+"1cv7.md "+КК+" /y");

ЗапуститьПриложение("xcopy "+КБ+"1cv7.dd "+КК+" /y");

КонецЕсли;

ЗавершитьРаботуСистемы();

КонецПроцедуры



Запускай ее в конце рабочего дня. На диске С: всегда будет свежая копия.

"

Сохранять данные,кстати говоря, можно автоматически используя пакетный режим запуска конфигуратора, прописав соответствующую командную строку в планировщике заданий.

"длинные имена не поддерживает.
лучше так
создать в 1с внешний отчет
добавить текстовое поле в форму идентификатор-выбпуть, тип строка, длина 60
добавить кнопку в форму заголовок-О, формула-ВыборКаталога()

В модуле формы



//*******************************************
Процедура Сформировать()
Если МонопольныйРежим()=1 Тогда
Предупреждение("В монопольном режиме копирование файлов невозможно!");
Иначе;
ФС.УстТекКаталог(каталогИБ());

Попытка
ИБ=СокрЛП(строка(константа.ПрефиксИБ));
Исключение
ИБ="""";
КонецПопытки;
КК = СокрЛП(Строка(ВыбПуть))+Строка("\")+ИБ+СокрЛП(строка(ТекущаяДата()));
Если ФС.СуществуетФайл(КК) = 0 Тогда
ФС.СоздатьКаталог(КК);
КонецЕсли;
ЗапуститьПриложение("xcopy *.dbf "+КК+" /y");
ЗапуститьПриложение("xcopy 1cv7.md "+КК+" /y");
ЗапуститьПриложение("xcopy cv7.dd "+КК+" /y");
ЗапуститьПриложение("xcopy users.usr "+КК+" /y");
ЗапуститьПриложение("xcopy *.DLL "+КК+" /y");
КонецЕсли;
//ЗавершитьРаботуСистемы();

КонецПроцедуры


Процедура ВыборКаталога()
Если ФС.ВыбратьКаталог(ВыбПуть,"Выбор Каталога",60)=1 Тогда
КонецЕсли;
КонецПроцедуры

Выбпуть="G:\1C";

///////////////////////////////////


"