---
url: >-
  /statelake/scripting-reference/functions-and-procedures/file-functions/extractfilepath.md
---

# ExtractFilePath

The **ExtractFilePath** function returns the drive and file path portion of a file path which includes a filename.

The value returned includes the trailing backslash (\\) at the end of the path, but a blank string is returned if there is no drive or directory present in the input parameter.

**Declaration**: Function ExtractFilePath( const FileName : string) : string

The basic example follows.

```pascal
procedure OnMapEvent(var Value:Variant);
begin
  Value := ExtractFilePath(Source.FileCon.CurrentFilename);
end;
```

A more detailed set of examples follow.

```pascal
procedure ScriptEvent (var Value : variant);
var
  f: string;
begin
  f := 'abc.exe'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  f := 'abc.ref1.txt'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  f := '\abc.ref1.TXT'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  f := 'C:\xyzabc.1234.exe'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  f := 'C:\MyData\MyFiles\abc.exe'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  f := '\MyDrive\MyData\MyFiles\abc.ref1.ref2.txt'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  f := 'D:\MyData\MyFiles\TheDocumentAbc.TXT'; LogInfo('ExtractFileExt(''' + f + ''') -> ''' + ExtractFilePath(f) + '''');
  LogInfo('');
end;
```

This code returns the following log entries.