This property contains a collection of all the types of metadata
in a file. So to iterate through all the metadata in a file you
might write the following code:
thePath = Server.MapPath("images/boat.jpg")
Set theFile = Server.CreateObject("MetaFiler2.File")
theFile.SetFile(thePath)
For Each theType In theFile.Types
Set theData = theFile.Open(theType)
Response.Write "Type = " & theType &
"<br>"
Response.Write "Length = " & theData.Length &
"<br>"
Next
Or similarly you could write the following:
thePath = Server.MapPath("images/boat.jpg")
Set theFile = Server.CreateObject("MetaFiler2.File")
theFile.SetFile(thePath)
For i = 1 To theFile.Types.Count
theType = theFile.Types(i)
Set theData = theFile.Open(theType)
Response.Write "Type = " & theType &
"<br>"
Response.Write "Length = " & theData.Length &
"<br>"
Next
|