Ooops -- should have stopped back by the thread before sending you a PM, R.
This is what I ended up with for late binding:
Function PicDim(sFil As String) As String
Dim vPth As Variant
Dim sPic As String
If Len(Dir(sFil)) = 0 Then Exit Function
vPth = Left(sFil, InStrRev(sFil, "\"))
sPic = Mid$(sFil, InStrRev(sFil, "\") + 1)
PicDim = CreateObject("Shell.Application").Namespace(vPth).Parsename(sPic).ExtendedProperty("Dimensions")
End Function
We are still trying to figure out why!
I'd be interested if you sort that out.
Bookmarks