Script VBS pour connaitre taille d'une image
Bonjour,
je souhaiterais faire un fichier .vbs qui serait capable de me donner la dimension d'une image .jpg
Je suis sous Win 98 et j'ai installé scr56fr.exe, soit la version 5.6 du langage de script windows pour win 98.
j'ai essayé ce code d'origine access, mais cela ne fonctionne pas :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
dim resu
resu = informationsFichier("C:/Mes documents/TestVBS/DimensionImages/" , "msgerr.jpg")
msgbox resu
public Function informationsFichier(pChemin , pFichier)
Dim oShell
Dim oFolder
Dim lFileName
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(CStr(pChemin))
Set lFileName = oFolder.Items.Item(CStr(pFichier))
informationsFichier = oFolder.GetDetailsOf(lFileName, 26)
End Function |
Apparemment vbs ne supporte pas trop les slash dans le premier paramètre.Si j'essai d'appeller la fonction de cette maniere
Code:
Code:
1
2
|
resu = informationsFichier("C:\" , "msgerr.jpg") |
je n'ai aucun resultat
Pouvez vous m'aider ?
merci
