File_Directory


Purpose   Extracts the path section from a fully qualified filename.

Decln.    File_Directory(FullName:string):string;

Returns   String

Remarks   This function is only available to the Turbo 5.0 programmer.

          FullName is the source filename.

          If the path is not the root directory, the last backslash '\' is
          removed.

Example

VAR
  F : STRING;
BEGIN
    F := FILE_DIRECTORY('C:\TURBO5\TTT5\MISCTTT5.PAS');
END;

F is assigned the value "\TURBO\TTT5".