Schleife in VBS

[keiner]

Dim bli, bla
 bli = 0

For Each objDSKP In objDSKPSet

'----
     textstream.writeline objDSKP.Name
        textstream.writeline ""
     '----
     Bla = bli + 1

hier ist der fehler!
bla bekommt immer den wert bli, also 0, + 1 zugewiesen, also 1, da sich bli nie ändert in der schleife ändert sich bla auch nicht! also diese zeile einfach durch
bli = bli + 1 ersetzen!
( oder Bla = Bla + 1) je nachdem was du willst!

cu

Next

textstream.writeline bla