Архив версий файлов при записи через конфигуратор

Опубликовал Антон Юхлин (antonrost) в раздел Программирование - Инструментарий

Архив измененных файлов + контроль изменений файлов другими пользователями.
Возможности программы:
- Сохранение файлов в архиве при каждом сохранении через конфигуратор (ert, txt, mxl и любые другие).
- Log: кто и когда записывал файл (общий + отдельный по каждому файлу).
- Сообщение, если записываемый файл (проверка по имени файла) ранее сохранялся другим пользователем.

Проверки на изменение содержимого файла пока нет.
Путь для сохранения задается в переменной "folderName"

Скачать файлы

Наименование Файл Версия Размер
-
.1202278870 3,23Kb
25.09.09
27
.1202278870 3,23Kb 27 Бесплатно

См. также

Добавить вознаграждение
Комментарии
1. Сhe Burashka (CheBurator) 06.02.08 11:27 Сейчас в теме
я ромиксовской фенькой для версионности внешних обработок юзаюсь.. нормуль!!!
2. Poppy (poppy) 3297 06.02.08 12:24 Сейчас в теме
Одно время я пользовалась Регистратором от Гендальфа http://gendalf.ru/dep.development/registrator.php
3. Евгений Мартыненков (JohnyDeath) 291 06.02.08 13:38 Сейчас в теме
4. Poppy (poppy) 3297 06.02.08 22:44 Сейчас в теме
(3) Отпала необходимость.
5. Андрей Загуляев (Mucmepukc) 86 07.02.08 10:31 Сейчас в теме
так. все хорошо в общем-то (конечно, не помешало бы показ изменений)...

но! не сохраняется в имени копии файла день, т.е. 2 раза ставится год ;)
вот тут:
newFileName = right(newFileName, 2) & "_" & mid(newFileName, 4, 2) & "_" & right(newFileName, 2)

скорее, должно быть так:
newFileName = right(newFileName, 2) & "_" & mid(newFileName, 4, 2) & "_" & left(newFileName, 2)




6. AntonRost (antonrost) 07.02.08 11:48 Сейчас в теме
Действительно, косячек... Исправил.
Со временем будут и изменения.
7. Андрей Загуляев (Mucmepukc) 86 08.02.08 22:28 Сейчас в теме
так... а если такая "хотелка" - вопрос на сохранение копии? дабы не плодить количество версий...
8. AntonRost (antonrost) 11.02.08 12:12 Сейчас в теме
Код
   ' Записываем копию сохраняемого файла в архив
   If MsgBox("Сохранить копию?", vbYesNo, SelfScript.Name) = vbYes Then
   ..........
   end if
Показать полностью
Mucmepukc; +1 Ответить
9. Андрей Загуляев (Mucmepukc) 86 11.02.08 14:48 Сейчас в теме
о, сэнкс! тока правильнее наверно:
Код
Sub configurator_OnFileSaved(w)
If MsgBox("Сохранить копию?", vbYesNo, SelfScript.Name) = vbYes Then
   ..........
end if
end sub
Показать полностью