Picture dimension
 

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

Picture dimension
 

I noticed that problem is he

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

GetDetailsOf method returns null.

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

U¿ytkownik "God Itself" napisa³ w wiadomo¶ci
...
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