SmartPascal
ExtractFileDir
Function		 Extracts the dir part of a full file name SysUtils unit
 function ExtractFileDir ( const FullFileName : string ) : string;
Description
The ExtractFileDir function extracts from FullFileName the directory substring.
 
This is the part of the full file name up to but not including the final \ before the file name.
Related commands
ChangeFileExt Change the extension part of a file name
ExtractFileDrive Extracts the drive part of a full file name
ExtractFileExt Extracts the extension part of a full file name
ExtractFileName Extracts the name part of a full file name
ExtractFilePath Extracts the path part of a full file name
ProcessPath Split a drive/path/filename string into its constituent parts
 
Example code : Extract all of the parts of a full file name
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  SysUtils,   // Unit containing the ExtractFileDir command
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);
var
  fullFileName : string;

begin
  // Set up a full file name with drive and path
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Show the component parts of this full name
  ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
  ShowMessage('Dir   = '+ExtractFileDir   (fullFileName));
  ShowMessage('Path  = '+ExtractFilePath  (fullFileName));
  ShowMessage('Name  = '+ExtractFileName  (fullFileName));
  ShowMessage('Ext   = '+ExtractFileExt   (fullFileName));
end;
 
end.
Hide full unit code
   Drive = C:
   Dir   = C:\Program Files\Borland\Delphi7\Projects
   Path  = C:\Program Files\Borland\Delphi7\Projects\
   Name  = Unit1.dcu
   Ext   = .dcu