XYplorer Beta Club

Posted: **12 Nov 2014 18:48**

I'm playing with backupto. I'm happy with what I've done but always like to know if there's a better way.The script is

"Backup TfR source";
set $bk, "E:\HH Dev\TfRSource\*";
set $pas, "$bk.pas";
set $dfm, "$bk.dfm";
set $ini, "$bk.ini";
set $inc, "$bk.inc";
set $dll, "$bk.dll";
set $dpr, "$bk.dpr";
set $res, "$bk.res";
set $cfg, "$bk.cfg";
set $drc, "$bk.drc";

backupto "\\NLHZERO\Backups\Delphish\TfRSource\TfRSource <date yyyy-mm-dd>", "$pas|$dfm|$inc|$ini|$dll|$dpr|$res|$cfg|$drc";

Posted: **12 Nov 2014 19:16**

Hmm.. try this:

Code: Select all

"Backup TfR source"
  $bk = "E:\HH Dev\TfRSource";
  // Extensions to backup.
  $exts = "*.pas|*.dfm|*.ini|*.inc|*.dll|*.dpr|*.res|*.cfg|*.drc";
  // Get a list of all files in $bk.
  $files =ListFolder($bk,, 1);
  // Filter the list to only those matching $exts - also sort & remove dupes/empties.
  $files = FormatList($files, 'fdents', '|', $exts);
  backupto "\\NLHZERO\Backups\Delphish\TfRSource\TfRSource <date yyyy-mm-dd>", $files;

Posted: **12 Nov 2014 19:34**

Thanks

I don't know if its any better but it certainly has opened my eyes. I hadn't realised how full the language was.

Its certainly given me some ideas as to how I can copy a full tree and then delete selected files based on extension from each folder. I could hard code it but there may be folders added later.

XYplorer Beta Club

Better way to backup multiple extensions within a folder?

Better way to backup multiple extensions within a folder?

Re: Is there a better way

Re: Better way to backup multiple extensions within a folder