home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
util
/
dir
/
browserii
/
s
/
lharcdir
< prev
next >
Wrap
AmigaDOS Script File
|
1994-10-18
|
458b
|
29 lines
.key Dir/A,Destination,Pat/K
.bra {
.ket }
.def Pat="#?"
Set CurrentDir `CD`
IF "{Destination}" EQ ""
Set Dest $CurrentDir
Else
Set Dest {Destination}
EndIf
CD "{Dir}"
CD /
Set ArcDir `BaseName "{Dir}"`
Set ArcPathName "`TackOn "$Dest" "$ArcDir"`"
Lha -a -r -x a "$ArcPathName" "$ArcDir/{Pat}"
IF $RC GT 0
Echo "Error during compression of {Dir}."
Ask "Press RETURN..."
EndIf
CD $CurrentDir
UnSet Dest
UnSet ArcDir
UnSet ArcPathName
UnSet CurrentDir