home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Elysian Archive
/
AmigaElysianArchive.iso
/
wp_dtp
/
textplus.lzh
/
TextPlus
/
English
/
rexx
/
filedelete.tpl
next >
Wrap
Text File
|
1991-04-11
|
510b
|
25 lines
/* File Löschen-Macro */
/* delete file macro */
options results
/* TextPlus ist unser host */
/* TextPlus is our host */
address 'TextPlus'
/* hole den filenamen */
/* get the filename */
'GetName'
/* und lösche das File von der Diskette - vorrausgesetzt es existiert C:Delete */
/* and delete the file from disk - provided C:Delete exists */
'Execute' 'C:Delete' result
/* tell user what happened */
if rc > 0 then 'Display' 'File has been deleted!'
else 'Display' 'Error while deleting!'