Hallo Leute,
ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:
Set fso = CreateObject("Scripting.FileSystemObject")
sl = InputBox("Wieviele Schüler sollten den Test machen?","")
'Gibt es eine "& sl &"ste Datei?
If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then
Do until Sl="0"
Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")
msgbox oFile.ReadLine
sl=sl-1
loop
Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:
Eingabe hinter Dateiende
Kann mir da jemand helfen?
Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.