Проверяет наличие EXIF тэгов.

Применяется к:

IExifInfo

Синтаксис:

Visual Basic:

Function GetStatus() As Long

Описание:

Если файл, для которого получен интерфейс IExifInfo не содержит EXIF тэгов, метод вернет -1. В противном случае метод вернет 0.

Пример:

Dim Tools As ZuluTools
Dim Info As IExifInfo

'Создаем объект ZuluTools
Set Tools = New ZuluTools

'Получаем IExifInfo
Set Info = Tools.GetExifInfo( "d:\images\IMG_0156.JPG")

'Проверяем наличие EXIF тэгов в указанном файле
If  Info.GetStatus = -1 Then

   MsgBox "Файл не содержит EXIF данных"

End If