>Is there a well trodden way to get at image IPTC and/or EXIF metadata? I've tried using .GetDetailsOf which is partly successful.
>Thank you in advance, Denis

Clear
IPTC(Addbs(Sys(5)+Sys(2003))+"IMG_4570.JPG")
Procedure IPTC
Lparameters tcPicFullPath

oShell = Createobject("Shell.Application")
oFolder = oShell.Namespace(Justpath(tcPicFullPath))

With oFolder

	For Each cFile In oFolder.Items
		If Upper(cFile.Name) <> Upper(Justfname(tcPicFullPath))
			Loop
		Endif

		For i = 0 To 47
			?.GetDetailsOf(oFolder.Items, i) + ": " + ;
				.GetDetailsOf(cFile, i)
		Endfor
	Endfor
Endwith