[futurebasic] Re: [FB] Make an Alias?

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : July 1999 : Group Archive : Group : All Groups

From: GBeckman@...
Date: Mon, 12 Jul 1999 09:15:03 EDT
In a message dated 7/12/99 3:20:15 AM, PRITCHA@... writes:

>How do you make an Alias of a file?


There are toolbox routines that will handle this for you , but I use PG 
routines and find them very solid.

One sets up like this:

CLEAR LOCAL
DIM osErr
DIM RECORD fsSpec
  DIM fsVrefNum%
  DIM fsParID&
  DIM 63 fsName$
DIM END RECORD .fsSpec

DIM myFSSpec.fsSpec
DIM test
LOCAL FN SeeAboutAQuickOpen
  
  osErr=FN useAlias(1003,myFSSpec)


{I follow with this:}

  LONG IF osErr=0
    gFileVol=FN GetWDRefNum(myFSSpec.fsVrefNum%,myFSSpec.fsParID&,@OSErr)
   

{Because the