/*********************************************************************** ** $VER: batch_aminet.rexx 1.00 (29.03.95) ** ** (C) 1995 José Roberto González Rocha. ** **---------------------------------------------------------------------- ** SINOPSIS: ** ** Script ARexx para colocar el AmiNet los ficheros traidos con ** batch_ftp.rexx ** **---------------------------------------------------------------------- ** HISTORIA : ** ** 1.00 (29.03.95) ** ***********************************************************************/ parse arg batchfilename if batchfilename = "" then do addlib('rexxreqtools.library', 0, -30, 0) batchfilename = rtfilerequest(,, 'Elija fichero batch:',,,, files) end if batchfilename = '' then do say 'No hay fichero seleccionado.' exit end if open(input, batchfilename, 'r') = 0 then do say 'No puedo habrir el fichero:' batchfilename exit end do until eof(input) line = readln(input) first = left(line, 1) if (first >= 'A') & (first <= 'z') then do filename = word(line, 1) directory = word( line , 2) if exists(filename) then address command 'move' filename 'Aminet:'directory end end