home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Languages Suite
/
ProgramD2.iso
/
Database
/
DBASE-3.PLS
/
UNINSTAL.BAT
< prev
Wrap
DOS Batch File
|
1986-07-29
|
3KB
|
112 lines
echo off
cls
echo
echo dBASE III PLUS VERSION 1.1
echo HARD DISK UNINSTALL PROCEDURE
echo
echo The UNINSTAL procedure allows you to remove a copy of dBASE III
echo PLUS and dBASE ADMINISTRATOR from your hard disk.
echo
if "%1==" goto Help
for %%f in (C:,c:,D:,d:,E:,e:,F:,f:,G:,g:,H:,h:,Y:,y:) do if %1.==%%f. goto START
for %%f in (I:,i:,J:,j:,K:,k:,L:,l:,M:,m:,N:,n:,O:,o:,P:,p:,Z:,z:) do if %1.==%%f. goto START
for %%f in (Q:,q:,R:,r:,S:,s:,T:,t:,U:,u:,V:,v:,W:,w:,X:,x:) do if %1.==%%f. goto START
goto BADDRIVE
:START
if "==%2" goto DBASE
if %2.==DBA. goto DBA
if %2.==dba. goto DBA
goto Help
:DBASE
echo dBASE III PLUS will be uninstalled from drive %1
echo
yn Y N 30 Do you want to continue (Y/N)?
if ERRORLEVEL 1 goto DBASE1
goto END
:DBASE1
if not exist %1dbase.exe goto NotXit
echo
echo Removing files from drive %1 . . .
echo
del %1dbase.exe
del %1dbaseinl.ovl
del %1dbase.msg
if exist %1config.db del %1config.db
if exist %1config.sys del %1config.sys
del %1dbase.ovl
del %1assist.hlp
del %1help.dbs
echo
echo dBASE III PLUS has been successfully uninstalled.
echo
goto End
:DBA
echo dBASE ADMINISTRATOR will be uninstalled from drive %1
echo
yn Y N 30 Do you want to continue (Y/N)?
if ERRORLEVEL 1 goto Ad1
goto END
:Ad1
if not exist %1dba.com goto NotDBA
if exist dba.lod goto AD3
:AD2
echo
echo Insert the Administrator #1 disk in drive A
echo
pause
echo
if not exist dba.lod goto AD2
:AD3
echo Erasing files from drive %1 . . .
echo
del %1dba.com
del %1dbase.msg
if exist %1help.dbs del %1help.dbs
if exist %1assist.hlp del %1assist.hlp
if exist %1protect.exe del %1protect.exe
del %1dba.ovl
if exist %1adduser.com del %1adduser.com
if exist %1login.db del %1login.db
%1
del \dbnetctl.300\*.vdw
del \dbnetctl.300\*.com
del \dbnetctl.300\*.hcl
del \dbnetctl.300\dba.ctl
del \dbnetctl.300\dba.lod
a:
echo
echo dBASE ADMINISTRATOR has been successfully uninstalled
echo
goto END
:Help
echo You entered the command incorrectly. The correct syntax is:
echo
echo "UNINSTAL <drive:>" To uninstall dBASE III PLUS.
echo
echo "UNINSTAL <drive:> DBA" To uninstall dBASE ADMINISTRATOR.
echo
echo Uninstall is aborted.
goto End
:NotXit
echo
echo dBASE III PLUS does not exist in the destination drive.
goto ABORT
:NotDBA
echo
echo dBASE ADMINISTRATOR does not exist in the destination drive.
goto ABORT
:BADDRIVE
echo
echo Invalid drive letter specified. Uninstall is aborted.
echo
goto Help
:ErrDBA
echo
echo dBASE ADMINISTRATOR uninstall has been aborted.
echo
goto END
:ABORT
echo Uninstall is aborted.
echo
:End