4 svar · 196 visningar · startad av mastermani
<%
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
<%
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)
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
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????
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)