/*

	$VER: copyfiles.rexx 3.2 (12.11.97)

	© 1997 Wojciech Kocjan

	Copies files from Aminet (like AminetCD, MountFTP) to
	another directory.

*/

OPTIONS RESULTS
OPTIONS FAILAT 21

Address 'ANETGUI'

'GetANetPath'
adir = result
'GetANetDload'
ddir = result

d_dir = ddir
if SUBSTR(d_dir,LENGTH(d_dir),1)~=':' THEN d_dir=d_dir||'/'

a_dir = adir
if SUBSTR(a_dir,LENGTH(a_dir),1)~=':' THEN a_dir=a_dir||'/'

'ReqChoice "Select mode" "How shall the files be copied" "**With_out path|_With path"'
mode = rc

'Entries'
entries = result
'GaugeOpen "Copying files...*nPlease wait" 'entries' 0 "%ld/'entries'"'

do entry=0 to entries-1
	'Gauge' (entry+1)	
	'GetPath ' entry
	apath = result

	IF mode = 1 THEN cmd='Copy "'a_dir||apath'" "'ddir'" CLONE'
	ELSE cmd='Copy "'a_dir||apath'" "'d_dir||apath'" CLONE'
	ADDRESS COMMAND cmd
end entry
'GaugeClose'