[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... GetName()
 * Purpose ....... To return the file name (minus .EXT) from a path/mask
 *                 string.
 * Parameters .... Path         File path/mask to return the name from
 * Returns ....... 8 character DOS file name without extension
 * Notes ......... Uses functions Empty and Replicate
 * Author ........ Martin Richardson
 * Date .......... October 23, 1992
 *****************************************************************************}
FUNCTION GetName( Path : DirStr ): NameStr;
VAR dir  : DirStr;
    name : NameStr;
    ext  : ExtStr;
BEGIN
     FSPLIT( path, dir, name, ext );
     IF NOT Empty( Name ) THEN
        GetName := Name
     ELSE IF NOT Empty( Ext ) THEN
        GetName := Ext
     ELSE
        GetName := Replicate( ' ', SIZEOF( Name ) );
END;

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]