[futurebasic] Re: Mounting a File Server

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : September 1998 : Group Archive : Group : All Groups

From: Morrison SoftDesign <info@...>
Date: Tue, 15 Sep 1998 10:07:24 -0400
>How do you tell the difference between a network volume and a local volume?<

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

-- 
Font problems? We can help!

Morrison SoftDesign
http://www.MorrisonSoftDesign.com
1-800-583-2917