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(strPar ent)
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