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
LLarsGMedlem sedan dec. 200012 464 inlägg <%
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
LLarsGMedlem sedan dec. 200012 464 inlägg 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
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
LLarsGMedlem sedan dec. 200012 464 inlägg 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