textstream

6 svar · 236 visningar · startad av roady 23 maj 2002

roadyMedlem sedan jan. 2002473 inlägg

Frågan23 maj 2002 13:06#1

Jag blir galen...
varför får jag fel på det här?

	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objTStream = objFSO.OpenTextFile("C:\Inetpub\wwwroot\webportal\log\date_global.txt", ForWriting, TRUE)
	
With objTStream
	.WriteLine "----------------------------------"
	.WriteLine "-----" & now & "-----"
	.WriteLine "----------------------------------"
	.WriteLine "Lite text här där det står lite,"
	.WriteLine "log information om websiten"
	.WriteBlankLines 3
	.Close
End With

Får felmeddelandet:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A0005)
Ogiltigt proceduranrop eller argument.
/webportal/admin/test.asp, line 4

@ndersMedlem sedan juni 200032 967 inlägg

23 maj 2002 13:14#2

Vilken är rad 4?

roadyMedlem sedan jan. 2002473 inlägg

23 maj 2002 13:20#3

ojdå, glömde...
Rad 4:
Set objTStream = objFSO.OpenTextFile("C:\Inetpub\wwwroot\webportal\log\date_global.txt", ForWriting, TRUE)

Nu när jag sitter och tänker så kan det vara ForWriting ,,,, men vad har ForWriting eller ForAppending för nummer`?

@ndersMedlem sedan juni 200032 967 inlägg

23 maj 2002 13:26#4

Finns filen? Om inte, prova att använda CreateTextFile.

Mvh,

LAMPMedlem sedan mars 2002777 inlägg

23 maj 2002 13:29#5

Nu när jag sitter och tänker så kan det vara ForWriting ,,,, men vad har ForWriting eller ForAppending för nummer`?

8 ForAppending
2 ForWriting

roadyMedlem sedan jan. 2002473 inlägg

23 maj 2002 13:30#6

Hittade det...
ForReading = 1
ForWriting = 2
ForAppending = 8

Så ifall jag använder:
Set objTStream = objFSO.OpenTextFile("C:\Inetpub\wwwroot\webportal\log\date_global.txt", 8, TRUE)

Så säger jag att jag skall öppna filen date_global.txt för att kunna lägga till information...
Det sista TRUE ser till ifall det inte finns en fil så skapas den! :bire

roadyMedlem sedan jan. 2002473 inlägg

23 maj 2002 13:30#7

Tackar LAMP och @nders, jag var lite slö!!!