webForumDet fria alternativet

Fel på denna FSO ????

ASP

4 svar · 178 visningar · startad av mastermani

Medlem sedan apr. 2001147 inlägg
Frågan#1

<%
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile ("C:\inetpub\wwwroot\webhost\testfil.txt")

T.WriteLine "Här är rad 1"
T.WriteLine "Här är rad 2"
T.WriteLine "Här är rad 3"
T.WriteLine "Här är rad 4"
T.WriteLine "Här är rad 5"

T.Close

%>

jag får dett felmedelande..

Körningsfel i Microsoft VBScript fel '800a0036'

Felaktigt filåtkomstläge

/webhost/filesystemobject.asp, rad 5

------------------
//MANI.C

Medlem sedan dec. 200012 464 inlägg
#2
<%
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile ("C:\inetpub\wwwroot\webhost\testfil.txt",2)

Om man vill att filen skall skapas om den inte finns så skriver man

<%
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile ("C:\inetpub\wwwroot\webhost\testfil.txt",2,true)

------------------
essentitia preter non sans multiplicandum

Medlem sedan dec. 200012 464 inlägg
#3

Jag kan förklara parametrarna

openTextFile(filename,iomode,create,format)

iomode 1 read mode (default)
2 write mode
8 append

create false (default)
true skapa ny fil om fil inte finns

format 0 Ascii (default)
-1 Unicode
-2 System default format

------------------
essentitia preter non sans multiplicandum

Medlem sedan apr. 2001147 inlägg
#4

Tack Lars

en fråga till, hur gör man för den fortsätter att skriva på varje gång sidan uppdateras istället för att den raderar allt och skriver in ny text????

------------------
//MANI.C

Medlem sedan dec. 200012 464 inlägg
#5

Man öppnar filen med append och create dvs,

<%
Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.OpenTextFile ("C:\inetpub\wwwroot\webhost\testfil.txt",8,true)

------------------
essentitia preter non sans multiplicandum

258 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)