---
title: "Lägga till text i fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50956-lägga-till-text-i-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Poffe"
published: "2002-08-21T18:08:59.000Z"
updated: "2002-08-21T18:41:58.000Z"
replies: 4
views: 274
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/50956-lägga-till-text-i-fil"
---

# Lägga till text i fil

## #1 — Poffe, 2002-08-21T18:08Z

Jag har en textfil som jag har text i och jag vill skriva till ny text i den under det som redan står men jag är inte någe bra på sådana saker men jag har iallafall lyckats få det att funka. Min fråga är om det finns nått enklare sätt att göra deta på, allt för att servern ska slippa jobba onödigt :D min kod: 

adrFtp = "c:\\fil.txt" 

Set oFSO = CreateObject("Scripting.FileSystemObject")
        Set oTextFil = oFSO.OpenTextFile(adrFtp) 

            Do While Not oTextFil.AtEndOfStream 
                strInUse = strInUse & oTextFil.ReadLine & vbCrLf 
            Loop 

        oTextFil.Close 
        Set oTextFil = Nothing 

        Set oTextFil = oFSO.CreateTextFile(adrFtp) 

            oTextFil.WriteLine strInUse 
            oTextFil.WriteLine "Text du vill skriva1." 
            oTextFil.WriteLine "Text du vill skriva2." 

        oTextFil.Close 
        Set oTextFil = Nothing 
Set oFSO = Nothing

Tack på för hand!

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

## #2 — @nders, 2002-08-21T18:19Z

Borde funka:

```
adrFtp = "c:\fil.txt" 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oTextFil = oFSO.OpenTextFile(adrFtp, forAppending) 
oTextFil.WriteLine "Text du vill skriva1." 
oTextFil.WriteLine "Text du vill skriva2." 

oTextFil.Close 
Set oTextFil = Nothing 
Set oFSO = Nothing
```

Mvh,

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

## #3 — Poffe, 2002-08-21T18:24Z

får felet:
Ogiltigt proceduranrop eller argument.

på raden:
Set oTextFil = oFSO.OpenTextFile(adrFtp, forAppending)

vet du, eller nån annan, vad som kan vara på tok då?

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

## #4 — @nders, 2002-08-21T18:37Z

Vad knasigt. Jag hade för mig att ForAppending är en konstant som är fördefinierad, men så var inte fallet. Den skall ha värdet 8. Om du vill kan du själv definiera konstanten innan du använder den:

```
Const forAppending = 8
```

eller helt enkelt bara använda värdet 8 i din kod.

```
Set oTextFil = oFSO.OpenTextFile(adrFtp, 8)
```

Mvh,

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

## #5 — Poffe, 2002-08-21T18:41Z

det funkar perfekt :D

tack så mycket!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/50956-lägga-till-text-i-fil