http://www.access-programmers.co.uk/...d.php?t=265850
This shows how to access the .jpg attributes, note you have to turn on the reference 'microsoft shell controls and auotmation'
The tag property is attribute number 18. you'd just have to look for an instr I think
Code:
Dim objShell As Shell32.Shell
Dim objfolder As Shell32.Folder
Dim objfolderitem As Shell32.FolderItem
Set objShell = New Shell
Set objfolder = objShell.NameSpace(CurrentProject.Path)
Set objfolderitem = objfolder.ParseName("jellyfish.jpg")
Debug.Print "Attribute Number: 18 value is: " & objfolder.GetDetailsOf(objfolderitem, 18) '.Value
Set objfolderitem = Nothing
Set objfolder = Nothing
Set objShell = Nothing