Picture dimension

[God Itself]

Hi,

i have such a module:

Function Picturedimensions(filePath As String) As String

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(filePath) Then

strParent = FSO.GetParentFolderName(filePath)
strArgFileName = FSO.GetFileName(filePath)

With CreateObject("Shell.Application").Namespace(strParent)
Picturedimensions = .GetDetailsOf(.ParseName(strArgFileName), 26)
End With

End If

Set FSO = Nothing

End Function

and it is working fine but only at work. i get empty value at home (also win
XP SP2, Office 2003, almost the same configuration). I checked paths, names,
VBA references... and nothing helps.. i guess that there may be problem with
windows scripting, but.. anyone experienced such a behaviour??

regards

 

[God Itself]

I noticed that problem is here:

Picturedimensions = .GetDetailsOf(.ParseName(strArgFileName), 26)

GetDetailsOf method returns null.

antivirus check, firewall check, what else may cause this strange
behaviour...