vbs Schleife bzw. Script soll immer wiederholt werden

Hallo!!! Ich hoffe jemand kennt die Lösung!!!!!
Kann man den jeweiligen Script immer wiederholen!?!
Es soll damit erreicht werden das, dass Fenster bzw. InputBox nicht automatisch schließt und weitergehend Daten bzw LieferscheinNr.: eingetragen werden können!
Ich habe es mit der Do --> Loop Schleife probiert beim zweitenmal bleibt er hängen und zeigt einen Fehler an.

Der Code lautet:

dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
username=inputbox ("Bitte geben Sie die Lieferscheinnummer ein!","Lieferschein","LieferscheinNr.:")
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, true)
fileOut.WriteLine (username)

dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, True)
Do While 1=1
username=InputBox ("Bitte geben Sie die Lieferscheinnummer
ein!","Lieferschein","LieferscheinNr.:")

If Not username = "" Then
FileOut.WriteLine (username)
Else Exit Do
End If
Loop

So etwas

Ich danke dir MONOTONE !!!!
Klasse funktioniert!!! GENIAL!!!

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 115866

Url: https://administrator.de/forum/vbs-schleife-bzw-script-soll-immer-wiederholt-werden-115866.html

Ausgedruckt am: 04.04.2025 um 18:04 Uhr

3 Kommentare

Neuester Kommentar

Hallo afb2010

Antwort wegen Wald und Bäume entfernt.

Gruß Dieter

dim fso, ZielDatei, FileOut,username
ZielDatei = "c:\DateiName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( ZielDatei, 8, True)
Do While 1=1
username=InputBox ("Bitte geben Sie die Lieferscheinnummer ein!","Lieferschein","LieferscheinNr.:")

If Not username = "" Then
FileOut.WriteLine (username)
Else Exit Do
End If
Loop

So etwas

So sollte es klappen.
Geht aber auch mit For

Wichtig is nur das du "Set FileOut = ...." nicht mit in die Schleife reingibst,