Discussion :

[papyxy]

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.

[jc2]

Bonjour,

Avec le libellé de l'erreur et le contenu de larg, on pourra faire plus de propositions ...

[papyxy]

"larg" => 450 en alpha

l'erreur est : caractère : 7
Caractère incorrect

[papyxy]

j'ai décortiqué la zone sur laquelle j' effectue le split (ligne 9) et me suis aperçu que celle-ci était encadrée d' un caractère "question mark"
qui faisait que les valeurs n'étaient pas numériques; ce caractère n'apparait pas lors de l'affichage avec msgbox.
Par contre, je ne comprends pourquoi sous XP, le problème n'existe pas?