home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / Chip_2004-03_cd1.bin / software / slunec / app / 6157_8185.exe / {app} / Pascal / Copy Files / CopyFiles.pas next >
Encoding:
Pascal/Delphi Source File  |  2003-11-08  |  298 b   |  12 lines
  1. { set Files and OutputDir property }
  2.  
  3. { unset 'Script->Test Mode' menu item to really execute }
  4.  
  5. for a := 0 to Files.Count-1 do
  6. begin
  7.     FileFrom := Files.Items[a];
  8.     FileTo := OutputDir + '\' + ExtractFileName(FileFrom);
  9.  
  10.     Execute('copy "' + FileFrom + '" "' + FileTo + '"');
  11. end
  12.