home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
objdir.zip
/
OBJDIR
/
OBJDIR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-16
|
650b
|
1 lines
/*REXX*/;Trace Off;Arg A1;Call RxFuncAdd SysLoadFuncs,RexxUtil,SysLoadFuncs;Call SysLoadFuncs;If (A1='') then;Call A5 '*** DIRPRMPZ Error - No Object name received as parameter ***';Call SysFileTree A1,'A2';Select;When (SUBSTR(WORD(A2.1,4),2,1)='D') then;A3='D';When (WORD(A2.1,4)<>'') then;A3='F';Otherwise;Call A5 '*** DIRPRMPZ Error - Unidentifed Object name received as parameter ***';End;A7='';If (SUBSTR(A1,2,1)=':') then;do;A7=SUBSTR(A1,1,1);A1=SUBSTR(A1,3);End;If (A3='F') then;Do;A8=LASTPOS('\',A1);A6=SUBSTR(A1,1,A8-1);End;Else;A6=A1;'@'A7':';'@cd 'A6;Exit;A5:;Arg A9;Call SysCls;Say A9;Say '*** Press any key to end..... ***';Pull A4;Exit;