IFileSystemInfo.Extension

Syntax

Extension: String;

Description

The Extension property returns a file extension including ".".

Example

Sub Main;

Var

Dir: IDirectoryInfo;

FileSInfo: IFileSystemInfo;

s: String;

Begin

Dir:=New DirectoryInfo.Attach("c:\New_folder");

If Dir.Exists And (Dir.GetFiles("*").Count<>0) Then

s:=Dir.GetFiles("*").Item(0).Extension;

End If;

Dispose Dir;

End Sub Main;

After executing the example, the "s" variable contains extension of the first file, if the New_folder directory exists and contains files.

See also:

IFileSystemInfo