Delphi World - Автоматизация создание BackUp-ов проектов

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Автоматизация создание BackUp-ов проектов

Оформил: DeeCo

Автор: ReNoiZer

Пробовал я много разного рода BackUp креаторов, и вот к чему я пришел: WinRAR + .BAT(CMD) - лучше нет (даже при разработке в команде)

пример использования:

Файл BackUp.CMD

@echo Off
echo ---------------------------
echo   RNZ prj. BackUp batch
echo ---------------------------
@echo On

set tmpName=MyProject_src
set backupDir=_BackUp\D6\Prj\MyProject

start /w winrar a -r -y -ag_YYMMDD_HHMM -x.\Data\*.* -x@.\xlist.lst "%temp%\%tmpName%" %1

mkdir "..\_sources"
mkdir C:\"%backupDir%"
mkdir D:\"%backupDir%"
mkdir E:\"%backupDir%"
mkdir \\"MyNetDir\%backupDir%"

copy /y "%temp%\%tmpName%*.rar" "..\_sources"
copy /y "%temp%\%tmpName%*.rar" C:\"%backupDir%"
copy /y "%temp%\%tmpName%*.rar" D:\"%backupDir%"
copy /y "%temp%\%tmpName%*.rar" E:\"%backupDir%"
copy /y "%temp%\%tmpName%*.rar" \\"MyNetDir\%backupDir%"

del "%temp%\%tmpName%*.rar"

rem start "..\_sources"
rem start C:\"%backupDir%"
rem start D:\"%backupDir%"
rem start E:\"%backupDir%"
rem start \\"MyNetDir\%backupDir%"

set tmpName=
set backupDir=

BackUp.CMD и xlist.lst копируем в директорию(каталог, папку) с проектом, xlist.lst содержит список исключений и может иметь примерно следующий вид:

Файл xlist.lst

~*.*
*.~*
*.rar
*.bak
*.dcu
*.res
*.exe
_qsq*.*

Разобраться, как это работает, думаю не составит труда, даже только начавшему программировать пиплу. Вот такие дела 8)