Subj : Re: TP Code
To   : Neil Santos
From : Art Johnston
Date : Tue Apr 23 2002 12:42 pm

NS>  AJ>      FSPLIT(PARAMSTR[0], StartupDir, Name, Ext );

NS> uses dos;
NS> 
NS> function return_dir(n : pathstr) : dirstr;
NS> var sdir, p   : dirstr;
NS>     name      : namestr;
NS>     ext       : extstr;
NS> 
NS>     begin
NS>          p := fsplit(n, sdir, name, ext);
NS>          return_dir := p;
NS>     end;

He needs to use, "PARAMSTR(0)" as his path with  FSPLIT.

The example that he was converting from used "PARAMSTR(0)" to return the path 
and file name of the executing program.

Art Johnston

---
he Abyss BBS -- WWIV v4.30 1:103/105@Fidonet --
 --- Home of WWIVMail/QWK ---
            
--- WWIVToss v.1.40 Registered 
 * Origin:  -*The Abyss Westminster, California USA*- (1:103/105.0)

.