NEW WAY TO READ DEFAULT PATHS AND NAME OF FILES

[texaspete]

INIFILE$ = DefaultDir$

Print INIFILE$ , DefaultDir$, fpath$

fpath$ = SeparatePath$(INIFILE$)

FFILE$ = SeparateFile$(INIFILE$)

DDefaultDir$ = fpath$+FFILE$

'notice "File Path"; fpath$;" "; FFILE$;" ";DDefaultDir$

' if FileExist(fpath$, FFILE$) < 1 then

'Notice "File not present >";FFILE$

'end if

'This is the correct machinE


THE ABOVE CODE WORKED FINE ON LB 4.5.  I AM TRYING TO MODIFIE IT TO WORK ON LB4.5.1.  IT HAS BEEN A LONG TIME SINCE I WORKED WITH THE CODE. OVER 2 YEARS.  I AM AWARE OF THE CHANGES MADE ON THE LB 4.5.1 BUT i AM HAVING TROUBLE GETTING BACK INTO THE SWING OF THINGS.  IF ANY ONE CAN SEE THE ERROR. i WOULD APPRECIATE IT IF YOU COULD DROP ME A NOTE.  tHE ORIGINAL SOURCE CODE HAS GOTTEN QUIT LARGE.  i HAVE ALREADY READ THE CHANGES FOR LB4.5.1. . i AM A LITTLE CONFUSED.

THANKS TEXASPETE

[Rod]

We need to see your functions SeparatePath$() and SeparateFile$()

[tsh73]

Explain your problem.
DefaultDir returns path where your BAS file is

So for the full path
"c:\users\me\myLBProjects\test1\test1_01.vas"
DefaultDir returns
"c:\users\me\myLBProjects\test1" (no trailing "\")

Now, your first line (INIFILE$ = DefaultDir$) makes no sense.
Splitting it into path and file likely get
"c:\users\me\myLBProjects" and "test1"
(may be "c:\users\me\myLBProjects\" and "test1")
The path ends up one level above.