(view source code of bootdriv.cmd as plain text)
/* Check for boot drive */
/* Techniques explained by Dick Goran in his January 1997 Rexx Column in */
/* OS/2 Magazine, found at http://www.toward.com/cfsrexx/os2-mag/9701.htm */
/* RLANUTIL.DLL, containg GetBootDrive, was added in Warp Connect */
call RxFuncAdd "GetBootDrive", "RLANUTIL", "GetBootDrive"
if RxFuncQuery( "GetBootDrive" ) = 0 then do
bootdrive = GetBootDrive()
end
else do
/* This should work in any pre Warp OS/2 version too */
path = value( "PATH", , "OS2ENVIRONMENT" )
parse upper value path with ":\OS2\SYSTEM" -1 bootdrive +2
end
say "Boot drive = "||bootdrive
page last modified: 2024-04-16; loaded in 0.0061 seconds