FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

DISK I/O

Know if a volume is a server


try this...

CLEAR LOCAL
LOCAL FN isNetworkServer (volName$)
  IF RIGHT$(volName$,1) <> ":" THEN volName$ = volName$ + ":"
  DIM pBlock.128
  pBlock.ioNamePtr& = @volName$ 'put pointer to dirName$
  pBlock.ioVRefNum% = vRefNum%
  pBlock.ioDrParID& = [_curDirStore]
  pBlock.ioFDirIndex% = -1

  err = FN HGETVINFO (@pBlock)
  IF (pBlock.ioVAtrb% AND &x0000000001000000) = _nil THEN isServer% = _true
END FN = isServer%

WINDOW 1
PRINT FN isNetworkServer ("Your Network Server Name")
STOP

John