laufende Nummer generieren

[Dirk]

Hallo zusammen,

ich will für mein Formular jeweils eine Laufende Nummer erzeugen (ähnlich einer Autragsnummer). Diese soll in ein Formularfeld geschrieben werden.
Sie setzt sich zusammen aus der Jahreszahl und einer laufenden Nummer, die ich aus einer Datei lese und jeweils um eins erhöhe.

Ich habe es bis jetzt hinbekommen die Zahl aus der Datei zu lesen , um eins zu erhöhen und zusammen mit der Jahreszahl auszugeben.
Allerdings müsste die alte Nummer in der Textdatei durch die neue ersetzt werden. Das ist wohl mit dem put-Befehl möglich, ich konnte mein Script aber bisher noch nicht dazu bewegen mir den Wert zurückzuschreiben.

Würde mich freuen, wenn mir jemand helfen könnte!

Hier ist erstmal mein Code:

public Sub getLNR()
   Dim antragsnr, datei, Inhalt, jahr
   Set antragsnr = CreateObject("Scripting.FileSystemObject")
   Set datei = antragsnr.OpenTextFile("e:\forms\lnr.txt")
   jahr = year(now)
   datei.Open
   do until datei.AtEndOfStream
     Inhalt = datei.ReadLine + 1
   loop
   window.document.FormularName.FeldName.value = jahr & Inhalt
   datei.close
end Sub