Category : Recently Uploaded Files
Archive   : LHA255C.ZIP
Filename : MAKELHA.ASC

@ECHO OFF
REM Requires LHA 2.13 in the DOS path and DOS 6.0 or higher
ECHO MakeLHArchive
IF "%1"=="?" GOTO QPARAM1
IF "%1"=="/?" GOTO QPARAM1
IF "%1"=="" GOTO QPARAM1
IF "%2"=="" GOTO QPARAM2
GOTO CONT

:QPARAM1
ECHO Syntax: MAKELHA LHAname Path\Files
ECHO (NO LHAname extension)
ECHO Example: MAKELHA BATCH C:\UTIL\*.BAT
GOTO END

:QPARAM2
ECHO LHA defaults to archiving the current directory.
ECHO You have not specified a directory.
ECHO Are you sure you want to archive the files in the current directory?
CHOICE /C:YNC Yes, No, Cancel
IF ERRORLEVEL 3 GOTO QPARAM1
IF ERRORLEVEL 2 GOTO QPARAM1
IF ERRORLEVEL 1 GOTO CONT

:CONT
ECHO Include Files in Subdirectories?
CHOICE /C:YNC Yes, No, Cancel
IF ERRORLEVEL 3 GOTO END
IF ERRORLEVEL 2 GOTO SMALL
IF ERRORLEVEL 1 GOTO LARGE

:SMALL
REM eXtended pathnames, Timestamp latest file
LHA a /x1 /t1 %1 %2
IF NOT EXIST %1.LZH GOTO QPARAM1
LHA t %1
LHA l %1
ECHO Do you want a self-extracting archive?
CHOICE /C:YNC Yes, No, Cancel
IF ERRORLEVEL 3 GOTO END
IF ERRORLEVEL 2 GOTO END
IF ERRORLEVEL 1 GOTO MAKESMSFX

:LARGE
REM RecurseSubdirs, eXtended pathnames, Timestamp latest file
LHA a /r1 /x1 /t1 %1 %2
IF NOT EXIST %1.LZH GOTO QPARAM1
LHA t %1
LHA v %1
ECHO Do you want to create a self-extracting archive?
CHOICE /C:YNC Yes, No, Cancel
IF ERRORLEVEL 3 GOTO END
IF ERRORLEVEL 2 GOTO END
IF ERRORLEVEL 1 GOTO MAKELGSFX

:MAKESMSFX
LHA s /x1 /t1 %1
DEL %1.LZH
LHA t %1.EXE
LHA l %1.EXE
GOTO QUERYLHX

:MAKELGSFX
LHA s /r1 /x1 /t1 %1
DEL %1.LZH
LHA t %1.EXE
LHA v %1.EXE

:QUERYLHX
ECHO Would you like an installation batchfile to be created?
CHOICE /C:YNC Yes, No, Cancel
IF ERRORLEVEL 3 GOTO END
IF ERRORLEVEL 2 GOTO END
IF ERRORLEVEL 1 GOTO MAKELHX

:MAKELHX
ECHO ÿ
ECHO Creating eXtraction batch file program...
ECHO @echo off > x%1.bat
ECHO if "%%1"=="" goto msg >> x%1.bat
ECHO %1 /x %%1 >> x%1.bat
ECHO goto quit >> x%1.bat
ECHO :msg >> x%1.bat
ECHO echo eXtract %1: Please specify target drive and path >> x%1.bat
ECHO echo Example: X%1 C:\%1 >> x%1.bat
ECHO :quit >> x%1.bat
ECHO ÿ
IF NOT EXIST X%1.BAT ECHO Installation program creation failure. Use MAKELHX.BAT.
IF EXIST X%1.BAT ECHO Created: X%1.bat
ECHO ÿ
ECHO Use this batchfile program to extract files archived in %1.exe
ECHO ÿ

:END