---
title: "textfiler som försvinner!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7931-textfiler-som-försvinner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "qwerty"
published: "2001-01-30T08:38:00.000Z"
updated: "2001-01-31T05:53:00.000Z"
replies: 2
views: 226
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7931-textfiler-som-försvinner"
---

# textfiler som försvinner!

## #1 — qwerty, 2001-01-30T08:38Z

Hej!
Jag har en röstningsfunktion som vid en ja-röst ökar värdet i en textfil som heter "ja.txt" med ett och vice versa.

Nu är det så här:
Med jämna mellanrum blir textfilens värde noll(filen försvinner). Innan jag använde server.mappath och såg till så att textfilen hamnade i min katalog så att jag kunde se den nollställdes(försvann) textfilen när servern startades om.(Någon sa att de då hamnade i någon tempkatalog på servern) 
Men nu när filerna ligger i min katalog borde de väl inte försvinna?

Hoppas att någon har en idé om vad som händer.
Tack p.f-hand.

Permalänk: https://www.webforum.nu/p/7931

## #2 — Vide, 2001-01-30T15:37Z

Hur ser koden ut som du använder för att skapa och ändra i filerna?

Permalänk: https://www.webforum.nu/p/254675

## #3 — qwerty, 2001-01-31T05:53Z

Här kommer ett utdrag ur koden:

```
<%
if request.form("knapp")="ja" then
application.lock
          application.contents("ja")= application.contents("ja") +1
          application.contents("nej")= application.contents("nej") +0
application.unlock
          Set F = CreateObject("Scripting.FileSystemObject")
          Set g = CreateObject("Scripting.FileSystemObject")
Set T = F.CreateTextFile("c:\www\nyheter\txt\ja.txt")
          Set h = g.CreateTextFile("c:\www\nyheter\txt\nej.txt")
T.WriteLine Application.Contents("ja")
h.WriteLine Application.Contents("nej")
          T.Close
h.close
          Set A = CreateObject("Scripting.FileSystemObject")
Set c = CreateObject("Scripting.FileSystemObject")
          Set B = A.OpenTextFile("c:\www\nyheter\txt\ja.txt", 1)
          Set d = c.OpenTextFile("c:\www\nyheter\txt\nej.txt", 1)
Pos = B.ReadLine
Neg = d.ReadLine
          B.Close
d.close %>
```

Permalänk: https://www.webforum.nu/p/254676

---

Tråden på webben: https://www.webforum.nu/amne/asp/7931-textfiler-som-försvinner