file.setpath.fmfn

/*
 * =====================================================
 * file.setpath ( location ; subfolder )
 * 
 * RETURNS:    (string) path to file/folder location.
 * PARAMS      location = (string) name of the folder location
 *             subfolder = (string) any subfolders you wish to append
 * DEPS:       none
 * NOTES:      none
 * =====================================================
 *
 */

Let ([
_Windows = Abs( Get( SystemPlatform ) ) - 1;

// Paths are returned via an evaluate using the inbound 'location' var as a reference to the named Let() var
_Paths = "Let( [
            isWindows    = Abs( Get( SystemPlatform ) ) - 1;
            isXP         = isWindows and Get ( SystemVersion ) < 6;
            _Desktop     = Get( DesktopPath );
            _Documents   = Get( DocumentsPath );
            _Application = Get( FileMakerPath );
            _File        = Substitute( Get( FilePath ) ; \"file:\" ; \"\" );
            _Preferences = Get( PreferencesPath );
            _Temp        = If ( isWindows ; Substitute ( _Documents ; \"My Documents\" ; \"Local Settings\" ) & \"Temp/\"; \"/private/tmp/\" );
            _Extensions  = Get( FileMakerPath ) & \"Extensions/\";
            path.win     = If ( isXP ; \"/Local Settings/Application Data/FileMaker/Extensions/\" ; \"/AppData/Local/FileMaker/Extensions/\" );
            path.mac     = \"/Library/Application Support/FileMaker/Extensions/\";
            _SharedExt   = Substitute (  _Desktop ; \"/Desktop/\"; If ( isWindows ; path.win ; path.mac ) );
            _FMTemp      = Get ( TemporaryPath )

            ];¶_" &
            location
            & ")";

// Only these values for folder are possible
_Match = "Desktop Documents Application File Preferences Temp Extensions SharedExt FMTemp";

// Generate the actual path
_Path = If ( PatternCount( _Match ; location );  Evaluate( _Paths ) ; location ) & If ( not IsEmpty( subfolder ); subfolder );

// Remove the filename
_File = Get( FileName ) & ".fp7";
_HasFile = PatternCount( _Path; _File );
_Path = If ( _HasFile; Substitute( _Path; _File; ""); _Path )

];

_Path

)

/*
//Unit test
List (
file.setpath ( "Desktop" ; "" );
file.setpath ( "Documents" ; "" );
file.setpath ( "Application" ; "" );
file.setpath ( "File" ; "" );
file.setpath ( "Preferences" ; "" );
file.setpath ( "Temp" ; "" );
file.setpath ( "Extensions" ; "" );
file.setpath ( "SharedExt" ; "" );
file.setpath ( "FMTemp" ; "" );
)
*/