Bonjour
J'ai un programme HTA qui fonctionne sous XP mais qui me donne une erreur sous Vista dans la séquence suivante :
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
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.