Bonjour
J'ai un programme HTA qui fonctionne sous XP mais qui me donne une erreur sous Vista dans la séquence suivante :
Le but est de calculer un rapport largeur/hauteur d'une image pour pouvoir l'afficher.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Il faut donc que ces valeurs soient numériques.
Partager