nicht angemeldet
Fehler im VB-Script
Hallo!
Also ich habe ein kleines Problem mit einem Script.
Dieses soll mir einen bestimmten Ordner erstellen und dann eine HTML Datei erzeugen die diesen Ordner Verlinkt.
Das ordner erstellen ist kein Problem.
Nur bei der HTML Datei gibt es ein Problem.
In der HTML Datei ist wieder ein kleines VBScript enthalten.
Beim erstellen der HTML Datei bekomme ich aber eine Fehlermeldung.
"Nicht abgeschlossene Zeichenfolgekonstante!
"Zeile: 83"
"Zeichen: 19"
Zeile 83 ist die Zeile in der das VBScript in der Verweise HTML Datei wieder gerschlossen wird.
datei.WriteLine "</script>"
Also muss ja irgendwo in den Script darüber ein Fehler sein.
Wahrscheinlich bei der " Zeichen setzung.
Ich hoffe ihr findet ihn.
Code:
<html>
<head>
</head>
<body bgcolor="003366">
<center>
<script language="vbscript">
set fs = createobject("scripting.filesystemobject")
Aloc = location.href
ptr = InStrRev(Aloc,"/",len(Aloc))
Pfad1 = mid(Aloc,9)
Pfad2 = Replace(Pfad1, "/","")
DateiName = mid(Aloc,ptr+1)
PZAO = Left(Pfad2,len(Pfad2) - len(DateiName))
sub MachWas(sel)
Name = (sel.options(sel.selectedIndex).text)
set datei3 = fs.OpenTextFile(PZAO & "ordner2.txt",8,true)
datei3.WriteLine Name
datei3.Close
newVerweise_newfolder()
End sub
set datei4 = fs.OpenTextFile(PZAO & "ordner.txt")
Document.Write"<select name=""Auswahl"" size="""" onchange=""MachWas(me)"">"
Document.Write "<option value="" ""></option>"
nr = "1"
do until datei4.atEndOfStream
rline = datei4.ReadLine
Document.Write"<option value=""" & nr & """>"& rline & "</option>"
nr = nr + "1"
loop
datei4.close
function newVerweise_newfolder()
Const OverWriteFiles = False
on error resume next
dest_folder = "....\Bahn_Messungen_new"
ground_folder = "\Grundordner"
file_path = "\Ordner2.txt"
create_path = ""
quell_Datei = (PZAO & file_path)
'ziel_folder = (start_folder & create_path & rline)
set file = fs.opentextfile(quell_Datei)
do until file.atendofStream
rline = file.readline
fs.CopyFolder (PZAO & ground_folder) , (PZAO & dest_folder & create_path & rline) , OverWriteFiles
loop
file.Close
datei2 = (PZAO & file_path)
if fs.FileExists(datei2) then
set datei = fs.CreateTextfile (PZAO & "....\Bahn_Messungen_new\Verweise.HTML", true)
datei.WriteLine "<html><body leftmargin=""1"" topmargin=""0"" bgcolor=""003366"">"
datei.WriteLine "<center><p style=""font: 10pt Comic Sans MS""><font color=white>" & "Bahn - Regionen" & "</font></p>"
datei.WriteLine "<center>"
datei.WriteLine "<script language=""vbscript"">"
datei.WriteLine "Sub ShowText(sel)"
datei.WriteLine "DateiName = (sel.options(sel.selectedIndex).text)"
datei.WriteLine "Ziel = (" & "DateiName" & " & ""\Auswahl.html" & """)"
datei.WriteLine "'Alert(" & "Ziel" & ")"
datei.writeLine "Set newwin = Window.Open(Ziel ,""Navigation_untenlinks"")"
datei.WriteLine "End Sub"
datei.WriteLine "</script>"
datei.WriteLine "<form>"
datei.WriteLine "<select onchange=""ShowText(me)"">"
set dateiinhalt = htmlDatei.OpenTextFile(datei2)
datei.WriteLine "<option value="" ""></option>"
do until dateiinhalt.atEndOfStream
inhalt = dateiinhalt.ReadLine
nr = "1"
datei.WriteLine "<option value=""" & inhalt & "\Auswahl.hmtl"">"& inhalt & "</option>"
nr = nr + "1"
loop
dateiinhalt.close
datei.WriteLine "</select>"
datei.WriteLine "</form></body></html>"
datei.Close
MsgBox "Ordner " &name & " erstellt!"
else
MsgBox "Datei nicht vorhanden"
end if
end function
</script>
</center>
</body>
</html>
-
Hi,
ich hab keine Ahnung ob dein Problem damit zusammenhängt, aber brech das mal auf zwei Schreibblöck auf, vielleicht denkt der VB-Interpreter des Schreibscripts seine Aufgabe wäre beendet...
datei.Write "</"
datei.WriteLine "script>"MfG
Rouven--
-------------------
ss:) zu:) ls:& fo:) de:< va:{ ch:? sh:) n4:( rl:? br:$ js:| ie:) fl:(-
Hallo!
*lach*
Geil, hat funktioniert!
Trick 17 *grins*Wäre ich im Leben nicht drauf gekommen.
Gruß
Waldgeist
-