Ich will in eine Textdatei die obersten vier Zeilen lesen und speichern, dann die Datei neu anlegen, eine neue Zeile schreiben, und dann die vier gespeicherten.
Allerdings kriege ich folgende Meldung:
Zitat:
Microsoft VBScript runtime error '800a004c'
Path not found
/fileupload.asp, line 93
|
der Quelltext dazu:
Zitat:
Dim filesys, tickerfile, row2, row3, row4, row5
Set Filesys = CreateObject("Scripting.FileSystemObject")
Set tickerfile = filesys.OpenTextFile(Server.MapPath("javaticker.tx t")&"/javaticker.txt",1,true)
row2 = tickerfile.ReadLine
row3 = tickerfile.ReadLine
row4 = tickerfile.ReadLine
row5 = tickerfile.Readline
Set tickerfile = filesys.OpenTextFile(Server.MapPath("javaticker.tx t")&"/javaticker.txt",8,true)
tickerfile.WriteLine "einsatz.asp"&"Month="&Month(upl.Form("Datum"))&"# E"&upl.Form("Enr")&" "&upl.Form("Titel")
tickerfile.WriteLine row2
tickerfile.WriteLine row3
tickerfile.WriteLine row4
tickerfile.WriteLine row5
|
Der Pfad der von Server.MapPath ausgespuckt wird:
Zitat:
g:\activewebroot\00815\u00204711\javaticker.txt
|