.KEY SOURCE,DEST .DEF DEST RAM: ; Note that DEST must end with : or / always! Defaults to RAM: FailAt 20 Echo "*E[1mArchiving directories from to *E[22m" Echo "Scanning dir..." CD ; Archive directories and print the currently processed dir name. Check errors in archiving too. List DIRS LFORMAT="Echo *"**E[1F**E[K%N*"*NLhA -q -H1 -a -e -r a *"%N.lha*" *"%N*"*NIf WARN*N Echo *"**E[1F**E[KError while archiving: %N**E[1E*"*N Set ERR TRUE*NEndIf" > T:arcdirs_script ; Add icon files of directories into the archives if they exists List DIRS LFORMAT="If EXISTS *"%N.info*"*N LhA -q -H1 -a a *"%N.lha*" *"%N.info*"*NEndIf" >> T:arcdirs_script Execute T:arcdirs_script Echo "*E[1F*E[KDone." ; If there was an error, let's wait that nothing closes the window too quickly if launched from DOpus etc. If $ERR EQ "TRUE" UnSet ERR Wait 10 EndIf