home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
553.lha
/
ClockDJ_v5.02
/
ClockRexxExamples
/
PointDelete.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-09-09
|
709b
|
32 lines
/* Multiple file delete */
options results
address clockdj
setcedhide ""
setcedshow ""
setceddir "VD0:"
setcedfile ""
setcedtitle "Select files to delete"
cedextendedrequester
files = result;if files = "" then exit
win = "con:s*/0/50/640/350//cd/02\r\c"
if ~open('console',win) then exit
call writech 'console',files
POPREQUESTER 'Do you really want to delete these?'
if result = no then exit
address command
if index(files,'0a'x) = 0 then do
"runwsh >nil: delete >nil:" '"'files'"'
exit
end
pos1 = 1
do forever
pos2 = index(files,'0a'x,pos1+1)
if pos2 = 0 then do
say 'All done.';exit
end
else nop
"runwsh >nil: delete >nil:" '"'substr(files,pos1,(pos2-pos1))'"'
pos1 = pos2+1
end