Hi
ja ich schoooon wieder
naja ich hab jetzt vor einen text in eine datei zu speichern aber er bringt mir immer folgenden Fehler zu volgendem script
kann mir vielleicht jemand helfen?????
<html>
<head>
<title>
In ein Textdatei schreiben
</title>
<HTA:APPLICATION ID="TheApp"
APPLICATIONNAME="InTextdateienSchreiben"
\>
<SCRIPT LANUGUAGE=VBS>
option explicit
'++++++++++++Variablen und Constanten++++++++++++
dim Filesyst_Obj, Textdatei_Object, Shell_obj
dim Pfad_S, Name_S,I,Dname
dim myshell
Const FB="Unbekannter Laufzeitfehler"
'++++++++++++Prozeduren und Funktionen+++++++++++
Function Script_Verzeichnis()
set myshell = CreateObject("WScript.Shell")
Pfad_s = WScript.ScriptFullname
Name_S = Wscript.ScriptName
Pfad_S = mid(Pfad_S, 1,(Len(Pfad_S)-Len(Name_S)))
Script_Verzeichnis = Pfad_s
End Function
Sub Textdatei_Erstellen(test)
dim Antw_b
set Fielsyst_Obj = CreateObject(Scripting.FileSystemObject)
If Filesyst_Obj.FileExists(test) then
Antw_b=msgbox("Die datei ist bereits vorhanden!" & chr(10) & "Überschreiben?", vbquestion + vbyesno, "Überschreiben?")
If Antw_b=vbno then
Antw_b=msgbox("Soll die Datei zum Anhängen von Text" & "feöffnet werden? ")
If Antw_b=vbyes then
call Textdatei_Oeffnen(test)
End If
WScript.Quit
End If
End If
Set Textdatei_Obj = Filesyst_Obj.CreateTextFile(test,True,True)
End Sub
Sub Textdatei_Oeffnen()
dim Antw_b
set Filesyst_Obj = CreateObject(Scripting.FileSystemObject)
set Textdatei_Obj= Fielsyst_Obj.OpenTextFile(test,8,-1)
End Sub
Sub Textdatei_Texthinzufuegen(Text)
Textdatei_Obj.WriteLine(Text)
End Sub
Sub Textdatei_Schliessen()
Textdatei_Obj.Close
End Sub
Sub Fehlerliste()
DName="Fehlernummer.txt"
Set myshell = CreateObject("WScript.Shell")
Textdatei_erstellen(Script_Verzeichnis & DName)
Textdatei_Texthinzufuegen("NR:" & vbTab & "Beschreibung" & vbCrLf)
on Error Resume Next
For I=1 To 33000
Err.Raise(I)
If Err.Describtion <>FB Then
Textdatei_Texthinzufuegen(Err.Number & vbTab &Err.Describtion)
End If
Err.Clear
Next
set Shell_Obj = nothing
End Sub
</script>
</head>
<body>
</body>
</html>
und jetzt die Fehler meldung:
schade man keine bilder reinmachen naja dan jetzt so
Zeile 10
Zeichen 9
Fehler ein ';' erwartet
Puejo Gast |
