/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
ReleaseGenerators/Samples/GetSamples.pnet
29 строк
928 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
uses System, System.IO; procedure CopyNoSVN(fromdir, todir: string); begin Console.WriteLine(string.Format('Create directory {0}',todir)); if not Directory.Exists(todir) then Directory.CreateDirectory(todir); var files := Directory.GetFiles(fromdir,'*.*'); foreach f:string in files do begin var fn := todir + '\' + Path.GetFileName(f); Console.WriteLine(string.Format('Copy {0}',fn)); File.Copy(f, fn); end; var dirs := Directory.GetDirectories(fromdir); foreach d:string in dirs do begin var dd := Path.GetFileName(d); if (dd<>'.svn') and (dd<>'..') then CopyNoSVN(d, todir+ '\' + dd); end; end; begin if CommandLineArgs.Length<2 then begin Console.WriteLine('GetSamples formdir todir'); //return; Error! exit; end; CopyNoSVN(Path.GetDirectoryName(GetEXEFileName)+'\'+CommandLineArgs[0],Path.GetDirectoryName(GetEXEFileName)+'\'+CommandLineArgs[1]); end.