Problème sous Vista pour des valeurs numériques
Bonjour
J'ai un programme HTA qui fonctionne sous XP mais qui me donne une erreur sous Vista dans la séquence suivante :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| function ratio (stFichier)
strep = objShell.CurrentDirectory
Set oFolder = CreateObject("Shell.Application").Namespace(stRep)
with oFolder
Set oFichier = .Items.Item(stFichier)
For i = 0 to 34
if left(.GetDetailsOf(.Items, i),5)="Dimen" then exit for
Next
t= split(.GetDetailsOf(oFichier, i), " ")
dim larg
larg= t(0)
xxx=eval(larg)
.
.
.
end with
end function |
Le but est de calculer un rapport largeur/hauteur d'une image pour pouvoir l'afficher.
Il faut donc que ces valeurs soient numériques.
