Bonjour,

J'ai un petit problème avec VBS que j'ai bien de la peine à comprendre.

Voilà le code :

Dans la fonction getDate() :

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
Dans la procédure openNextFile(serveur) :

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
Quand je fais ça, le premier echo (dans openNextFile), me donne bien 1, mais ensuite, une fois revenu dans getDate, ca me donne 0

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