29 lines
928 B
Plaintext
29 lines
928 B
Plaintext
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. |