IFileSystemInfo.Extension

Синтаксис

Extension: String;

Описание

Свойство Extension возвращает расширение файла, включая «.».

Пример

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;

После выполнения примера, если папка «New_folder» существует и в ней содержаться файлы, то в переменной «s» будет содержаться расширение первого файла.

См.также:

IFileSystemInfo