Den vill inte skriva i filen

9 svar · 219 visningar · startad av Sico 28 dec. 2001

SicoMedlem sedan maj 20002 597 inlägg

Frågan28 dec. 2001 23:06#1

varför? Filen skapas men det går inte att skriva till den. rättigheterna stämmer.

<% 
Dim Obj
Set Obj = CreateObject("Scripting.FileSystemObject")

Obj.CreateTextFile("c:\inetpub\wwwroot\asp\textstream.txt") 

Dim F, T
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile("C:\Inetpub\wwwroot\asp\textstream.txt") 

T.WriteLine "Här skriver den i .txt-filen"

T.Close 
%>

Error Type:
Microsoft VBScript runtime (0x800A0036)
Bad file mode
/asp/textstream.asp, line 11

Rad 11:

T.WriteLine "Här skriver den i .txt-filen"

------------------
O Yeah!
I wouldn't if I couldn't

VideMedlem sedan dec. 19998 577 inlägg

29 dec. 2001 00:03#2

Du måste öppna filen för skrivning också:

Set T = F.OpenTextFile("C:\Inetpub\wwwroot\asp\textstream.txt", ForWriting)

------------------
Mostly Harmless

SicoMedlem sedan maj 20002 597 inlägg

29 dec. 2001 00:07#3

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/asp/textstream.asp, line 9

------------------
O Yeah!
I wouldn't if I couldn't

jorgenMedlem sedan feb. 20012 412 inlägg

29 dec. 2001 00:23#4

borde väl bli:

Set T = F.OpenTextFile("C:\Inetpub\wwwroot\asp\textstream.txt", 8)

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

SicoMedlem sedan maj 20002 597 inlägg

29 dec. 2001 00:27#5

tackar det funkade.. men varför? den länkar till rad 8 ? .. lite osmidigt va om man ändrar i koden innan...

------------------
O Yeah!
I wouldn't if I couldn't

jorgenMedlem sedan feb. 20012 412 inlägg

29 dec. 2001 00:30#6

8 (ForAppending) betyder att den lägger till sist i filen, ändrar du 8 till 2 får du istället ForWriting.

Lilla jag blandade lite :e

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

[Redigerat av jorgen den 29 dec 2001]

SicoMedlem sedan maj 20002 597 inlägg

29 dec. 2001 00:35#7

aha, känner mig väldigt okunnig. Men som sagt håller jag ju på å lära mig..

Vart får man reda på sånt då?

------------------
O Yeah!
I wouldn't if I couldn't

jorgenMedlem sedan feb. 20012 412 inlägg

29 dec. 2001 00:49#8

I Visual basic Scripting Reference som finns att ladda hem här:
http://msdn.microsoft.com/scripting/vbscript/download/vbsdoc.exe

eller online här:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScript.asp

mvh Jörgen :)

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

SicoMedlem sedan maj 20002 597 inlägg

29 dec. 2001 00:58#9

schysst... har du mer saker? Vi kan bli bästisar om du vill :D
fniss

------------------
O Yeah!
I wouldn't if I couldn't

RGBMedlem sedan dec. 1999419 inlägg

29 dec. 2001 03:30#10

Ett lite bekvämare [r]sätt[/r] än att lägga på minnet att "ForAppending = 8" är att lägga till följande i global.asa

<!--METADATA NAME="Microsoft Scripting Runtime" TYPE="TypeLib" 
UUID="{420B2830-E718-11CF-893D-00A0C9054228}"-->

------------------
AIDS :
Apple Infected Disk Syndrome

[Redigerat av RGB den 29 dec 2001]