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 :
Apparemment vbs ne supporte pas trop les slash dans le premier paramètre.Si j'essai d'appeller la fonction de cette maniere
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code:
je n'ai aucun resultat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 resu = informationsFichier("C:\" , "msgerr.jpg")
Pouvez vous m'aider ?
merci
Partager