78505
May 12, 2009, updated at 12:35:34 (UTC)
11899
3
0
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)
Ich danke dir MONOTONE !!!!
Klasse funktioniert!!! GENIAL!!!
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
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!!!
Please also mark the comments that contributed to the solution of the article
Content-Key: 115866
Url: https://administrator.de/contentid/115866
Printed on: April 23, 2024 at 22:04 o'clock
3 Comments
Latest comment
Hallo afb2010
Antwort wegen Wald und Bäume entfernt.
Gruß Dieter
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,
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,