Bonjour,
J'ai un petit problème avec VBS que j'ai bien de la peine à comprendre.
Voilà le code :
Dans la fonction getDate() :
Dans la procédure openNextFile(serveur) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 If serveur(5).AtEndOfStream Then openNextFile(serveur) WScript.echo(serveur(6)) End If
Quand je fais ça, le premier echo (dans openNextFile), me donne bien 1, mais ensuite, une fois revenu dans getDate, ca me donne 0
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub openNextFile(ByRef serveur) If serveur(3) = UBound(serveur(4)) Then serveur(6) = 1 Else serveur(3) = serveur(3) + 1 Set serveur(5) = fso.OpenTextFile(serveur(4)(serveur(3)), ForReading, true) End If WScript.echo (serveur(6)) End Sub
Je pense que ça doit être une histoire de passage par valeur/référence, mais je passe bien par référence dans ma procédure openNextFile...
Quelqu'un aurait une idée de pourquoi est-ce que je perds ma modification ?
Merci
Partager