Set oShell = CreateObject ("Shell.Application")
Set oFolder = oShell.Namespace ("C:\Documents and Settings\Phung Van Huy\Desktop\img")
Set oFile = oFolder.ParseName("435.jpg")
strDimensions = oFolder.GetDetailsOf(oFile, 26)' Windows XP
'strDimensions = oFolder.GetDetailsOf(oFile, 31)' Windows Vista, Windows 7
' http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=160880
WScript.Echo "Dimensions: " & strDimensions
Title:
VBS - Get image width
Description:
Set oShell = CreateObject ("Shell.Application") Set oFolder = oShell.Namespace ("C:\Documents and Settings\Phung Van Huy\De...
...
Rating:
4