---
title: "Scripting.FileSystemObject"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10625-scripting-filesystemobject"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fredrik99"
published: "2001-07-18T18:28:00.000Z"
updated: "2001-07-18T20:16:00.000Z"
replies: 4
views: 195
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/10625-scripting-filesystemobject"
---

# Scripting.FileSystemObject

## #1 — fredrik99, 2001-07-18T18:28Z

Jag håller på lite med administration av asp/html filer online just nu :e

Jag får inte bara till det riktigt.
Hur gör jag när jag ska loop ut koden mellan en fast referens, rad nummer till textens slut som avslutas med '#&#'?

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

## #2 — @nders, 2001-07-18T18:35Z

hur ser din kod ut nu?

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

## #3 — fredrik99, 2001-07-18T19:46Z

```
Dim ed, Path, Open

Set Ed = Server.CreateObject("Scripting.FileSystemObject")
Path = Edit.BuildPath(folder, dokVar)
Set Open = Edit.OpenTextFile(Path)

Do Until Open.Line = 5
Open.SkipLine
Loop
```

Just nu hämtar den raden 5. Men jag vill att den hämtar raderna ifrån rad5 till det kommer upp '#&#' längre ner i texten.

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

## #4 — @nders, 2001-07-18T19:51Z

(otestat)

byt

```
Do Until Open.Line = 5
Open.SkipLine
Loop
```

till

```
for i = 1 to 4
Open.SkipLine
next
do while not Open.atendofstream
strLine = Open.readline
if strLine = "#&#" then
exit do
else
response.write strLine & "<br>"
end if
loop
```

som sagt, otestat. det får du göra liksom. :)

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

## #5 — fredrik99, 2001-07-18T20:16Z

Tackar :e

Testade inte så mycket, men det verkade att funka..=)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10625-scripting-filesystemobject