home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
sysutils
/
qexist
/
qe.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1989-08-24
|
657b
|
41 lines
@echo off
qexist %1
if errorlevel 255 goto 255
if errorlevel 31 goto 31
if errorlevel 27 goto 27
if errorlevel 26 goto 26
if errorlevel 23 goto 23
if errorlevel 21 goto 21
if errorlevel 20 goto 20
if errorlevel 3 goto 3
if errorlevel 2 goto 2
echo File %1 Exists
goto done
:255
echo Usage Error
goto done
:31
echo General Failure Reading Disk
goto done
:27
echo Sector Not Found on Disk
goto done
:26
echo Not a DOS/OS2 Disk
goto done
:23
echo CRC error on Disk
goto done
:21
echo Drive Not Ready
goto done
:20
echo Bad Unit Number
goto done
:3
echo Path %1 not found
goto done
:2
echo File %1 does not exist
:done