FN_DEVTYPE()
 Get the Device type for any drive number (Network, Local, or Subst)
------------------------------------------------------------------------------
 Syntax
 
      fn_Devtype( <nDrive> ) -> <nDevtype>
 
 Arguments

     <nDrive> Disk drive number (1 for A, etc.) or 0 for default drive

 Returns

     <nDevtype> returns 1 for Local, 2 for Remote (Network), 3 for Subst,
                0 for Invalid drive, -1 for Error.

 Description

   Get the device type of the logical device.  Uses DOS Int 21, Function 44
   (I/O Control for Devices)

 Examples

  Function main()
  // Print the drive types for all valid drives.
  LOCAL i,nType,aTypes:={"Local  ","Network","Subst  "}
  for i := 1 to 26
    nType:=Devtype(i)
    if nType > 0
       ? "Drive ",chr(64+i),aTypes[nType]
    endif
  next
  Return NIL


 Source: N:\SRC\FSYS\DEVTYPE.PRG

 Author: Michael A. Cohen