[VBS] Var übergeben aus Sub

[max2k3]

Hi, ne einfache frage

.. wie bring ich es hin dass folgendes geschiet...


Sub Do_Multiple_Checks

c = 0
Do Until c = 100


Do_Single_Check(Test_Array(c)) // hier ist das problem ich muss sozusagen den aktuellen wert des arrays unten als tsstring haben wenn Do_Single_check durchgeführt wird. Das Array ist eine globale variable und ist überall verfügbar
c = c+1

Loop
End Sub


Sub Do_Single_Check

MsgBox tstring

End Sub



vorweg: es geht nur ums prinzip das ganze hab ich vereinfacht (inwirklichkeit werden wmi-befehle ausgeführt und keine msgbox) damit es nicht zu unübersichtlich wird.. also nochmal kurz in worten: Wie bring ich ihn dazu den Arraywert als tsstring rüberzuschicken bei ausführung der Do-multiple-checks

 

[Toaster]

Sub Do_Multiple_Checks

c = 0
Do Until c = 100


Do_Single_Check(cstr(Test_Array(c))) // hier ist das problem ich muss sozusagen den aktuellen wert des arrays unten als tsstring haben wenn Do_Single_check durchgeführt wird. Das Array ist eine globale variable und ist überall verfügbar
c = c+1

Loop
End Sub


Sub Do_Single_Check(tstring as string)

MsgBox tstring

End Sub

so sollte es gehen