home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of A1200
/
World_Of_A1200.iso
/
programs
/
commodity
/
archandler
/
scripts
/
fromarc.dopus
< prev
next >
Wrap
Text File
|
1995-02-27
|
687b
|
33 lines
/* Change DirectoryOpus directory from directory on Archives:
** to original directory. */
options results
status 13 "-1"
dir=result
dir=strip(dir,'B','"')
if left(dir,9)="Archives:" then
do
i=index(dir,':')
if i~=0 then
do
dir=substr(dir,i+1)
i=index(dir,'/')
if i~=0 then
dir=left(dir,i-1) || ':' || substr(dir,i+1)
else
dir=dir || ':'
i=lastpos('.lha',dir)
if i~=0 then
do
i=lastpos('/',dir,i)
if i~=0 then
dir=left(dir,i-1)
else
dir=left(dir,index(dir,':'))
end
ScanDir '"' || dir || '"'
end
end