Discussion :

[fredoh]

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 :

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
resu = informationsFichier("C:\" , "msgerr.jpg")

je n'ai aucun resultat

Pouvez vous m'aider ?

merci

[rezo972]

salut fredoh, je sui spas forcément un pro du vbs mais, à supposer que le reste de ta fonction est bon, tu a essayer de mettre les anti-slash ds le chemein complet la?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resu = informationsFichier("C:\Mes documents\TestVBS\DimensionImages\" , "msgerr.jpg")

Juste tu les remplace quoi!![/code]

[fredoh]

merci rezo972 , mais j'avais déjà testé cette modif, mais sans succes ...