Har lite problem med skrivning till textfil, hur kan man ändra så att textfilens sökväg inte är lokal (c:\...)
kod:
Set Obj = CreateObject("Scripting.FileSystemObject")
If Obj.FileExists("c:\inetpub\wwwroot\asp\nextlink.txt") = False Then
Set TS = Obj.CreateTextFile("c:\inetpub\wwwroot\asp\nextlink.txt", 8)
Else
Set TS = Obj.OpenTextFile("c:\inetpub\wwwroot\asp\nextlink.txt", 8)
End If %>
<% TS.Write Request.Form("fil") %>
<% TS.WriteLine Request.Form("namn")
Du måste alltid köra en loka sökväg när du använder FSO, men du kan hämta sökvägen till din root med Server.MapPath("\"), och på sätt behöver du inte vet den lokala sökvägen...
Set Obj = CreateObject("Scripting.FileSystemObject")
If Obj.FileExists("data.txt") = False Then
Set TS = Obj.CreateTextFile(Server.MapPath("\"), 8)
Else
Set TS = Obj.OpenTextFile("data.txt", 8)
End If
Jo, om filen ligger i rooten på din webplats... men där lär du inte har skrivrättigheter... ta reda på vilken mapp som har skrivrättigheter och lägg filen där... (om du nu skall in och ändra i den ifrån ett ASP-script)
Tack för hjälpen, du räddade verkligen min dag. Blev nått juck med koden efter lite för mycket krångel. Gjorde om alla koden från början och det funka kanon.
En sista liten fråga här..
som framgår av koden så vill jag skicka filnamn + beskrivning till textfilen.
Hur kan jag få texten formaterad så att jag får ett mellanslag mellan filnamn och beskrivning (till content linkning)?
upptäckte en liten bugg.. den verkar inte visa någon vilja att lägga till ny information på nästa rad, den skriver över hela text-filen istället... nån som hittar nått fel i min kod?
<% Dim Obj, TS, fil, besk
Set Obj = CreateObject("Scripting.FileSystemObject")
If Obj.FileExists("data.txt") = false Then
Set TS = Obj.CreateTextFile(Server.MapPath("data.txt"), 8)
Else
Set TS = Obj.OpenTextFile("data.txt", 8)
End If
TS.Write Request.Form("fil") + chr(9)
TS.WriteLine Request.Form("besk")
TS.Close %>
318 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
