Computerhilfen.de Logo
Forum
Tipps
News

Und schon wieder VB Probleme

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


Antworten zu Und schon wieder VB Probleme:

Vielleicht liegts daran..

'++++++++++++Variablen und Constanten++++++++++++

Hi Puejo,
filleichd sollteste einfach erstma die schreibvehla
in deim sgribt BERICHTIGEN
Gruß
 Twinky ;-)))

P.S.:
<SCRIPT LANUGUAGE=VBS> ist eine unbekannte Anweisung!
Da keine <Script Language=VBScript> Anweisung im Script enthalten ist, geht die Kiste davon aus, daß
J(ava)Script verwendet wird und meldet folgerichtig,
daß da ein(?) ';' fehlt. Um alle Fehler zu berichtigen, fehlt mir die Zeit und Internet-Cafes sind teuer..
CU
 Twinky


« VB - Outlook Konten erstellen VB - Outlook Konten erstellen »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!