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 |