I apologize, there was a good boo-boo in the code I had earlier.
Here is the corrected version.
SET VAR vm_temp TEXT = NULL
SET VAR vm_temp = (ENVVAL('TEMP'))
IF vm_temp IS NOT NULL THEN
--This will store temp files in Windows/Temp directory on a Win98 machine
--On NT or 2000 it will be in the WINNT/TEMP dir or depending on how
--security is set up it could be defined like:
--C:\Documents and Settings\jlimburg.TCORPNT1\Local Settings\Temp
--This presents a problem because it has a space in the line so it
--needs to be put between single quotes to work.
SET VAR vm_locatespace = (SLOC(.vm_temp,' '))
IF vm_locatespace > 0 THEN
SET VAR vm_temp1 = ((CHAR(39)) + .vm_temp + (CHAR(39)))
SET VAR delfiles TEXT = ('ERASE ' + (CHAR(39)) + .vm_temp + '\' + +
'*.$$$' + (CHAR(39)))
ELSE
SET VAR vm_temp1 = .vm_temp
SET VAR delfiles TEXT = ('ERASE ' + .vm_temp + '\' + '*.$$$')
ENDIF
SET SCRATCH &vm_temp1
SET ERROR MESSAGES 2926 OFF
SET ERROR MESSAGES 2077 OFF
&delfiles
SET ERROR MESSAGES 2077 ON
SET ERROR MESSAGES 2926 ON
ELSE
SET SCRATCH ON --This will store temp files in the current directory
SET VAR vm_temp = (CVAL('CURRDIR'))
SET VAR vm_locatespace = (SLOC(.vm_temp,' '))
IF vm_locatespace > 0 THEN
SET VAR delfiles TEXT = ('ERASE ' + (CHAR(39)) + .vm_temp + '\' + +
'*.$$$' + (CHAR(39)))
ELSE
SET VAR delfiles TEXT = ('ERASE ' + .vm_temp + '\' + '*.$$$')
ENDIF
SET ERROR MESSAGES 2926 OFF
SET ERROR MESSAGES 2077 OFF
&delfiles
SET ERROR MESSAGES 2077 ON
SET ERROR MESSAGES 2926 ON
ENDIF
CLEAR VAR vm_%, delfiles
SET FILES 60
__________________________________________________
Do You Yahoo!?
Got something to say? Say it better with Yahoo! Video Mail
http://mail.yahoo.com
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
