---
title: "Fel Fso"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/136896-fel-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Boorg"
published: "2005-11-03T14:35:30.000Z"
updated: "2005-11-03T14:46:15.000Z"
replies: 4
views: 284
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/136896-fel-fso"
---

# Fel Fso

## #1 — Boorg, 2005-11-03T14:35Z

Har ett script som loopar igenom alla filer med endelsen .html i en mapp. Och ändrar lite info i dem. Men nu är det så att den loopar igenom mappen som den skall, Men den skriver inte till informationen till .html filerna som den skall. Den skriver bara i en fil :/

```
	for each x in F.Files
		If LCase(right(x.Name, 4)) = "html" Then
			Set File = FSO.OpenTextFile(server.mappath("../" & Session("Fnamn") & "/" & x.Name),1)
			HtmlGrund = File.ReadAll

			With New RegExp
				.Pattern = "^[\w\W]*<!-- Gjord av [url]www.Borgdata.se[/url] -->([\w\W]*)<!-- Meny -->[\w\W]*$"
				Topp = .Replace(HtmlGrund, "$1")
			End With

			With New RegExp
				.Pattern = "^[\w\W]*<!-- Start -->([\w\W]*)<!-- Slut -->[\w\W]*$"
				Mitten = .Replace(HtmlGrund, "$1")
			End With
	
			With New RegExp
				.Pattern = "^[\w\W]*<!-- Slut -->([\w\W]*)<!-- [url]www.Borgdata.se[/url] -->[\w\W]*$"
				Bott = .Replace(HtmlGrund, "$1")
			End With

			Set File = FSO.OpenTextFile(server.mappath(Url),2)

			EditHtml = "<!-- Gjord av [url]www.Borgdata.se[/url] -->" & Topp & "<!-- Meny -->" & Temp & "<!-- Start -->" & Mitten & "<!-- Slut -->" & Bott & "<!-- [url]www.Borgdata.se[/url] -->"
			
			File.Write EditHtml
			Set File = Nothing

		End If
	Next
```

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

## #2 — @nders, 2005-11-03T14:36Z

Var sätter du variabeln *url* någonstans då? Den borde ju rimligen få ett värde i loopen.

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

## #3 — OveRRidE, 2005-11-03T14:37Z

/red. Eller vänta lite..

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

## #4 — Boorg, 2005-11-03T14:38Z

Här får ni hela koden

```
	Namn = replace(Request.Form("Namn"), "'", "''")
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")

	[B]Url[/B] = "../" & Session("Fnamn") & "/" & Namn & ".html"
	FSO.CopyFile server.mappath("Bin\HtmlGrund.html") , server.mappath(Url)

	set F = FSO.GetFolder(server.mappath("../" & Session("Fnamn") & "/"))

	for each x in F.Files
		If LCase(right(x.Name, 4)) = "html" Then
			Temp = Temp & "<a href=""../" & Session("Fnamn") & "/" & x.Name & """>" & mid(x.Name, 1, Instr(x.Name,".") - 1) & "</a>&nbsp;&nbsp;"
		End If
	Next
	Temp = Temp & "<br><br>"

	for each x in F.Files
		If LCase(right(x.Name, 4)) = "html" Then
			Set File = FSO.OpenTextFile(server.mappath("../" & Session("Fnamn") & "/" & x.Name),1)
			HtmlGrund = File.ReadAll

			With New RegExp
				.Pattern = "^[\w\W]*<!-- Gjord av [url]www.Borgdata.se[/url] -->([\w\W]*)<!-- Meny -->[\w\W]*$"
				Topp = .Replace(HtmlGrund, "$1")
			End With

			With New RegExp
				.Pattern = "^[\w\W]*<!-- Start -->([\w\W]*)<!-- Slut -->[\w\W]*$"
				Mitten = .Replace(HtmlGrund, "$1")
			End With
	
			With New RegExp
				.Pattern = "^[\w\W]*<!-- Slut -->([\w\W]*)<!-- [url]www.Borgdata.se[/url] -->[\w\W]*$"
				Bott = .Replace(HtmlGrund, "$1")
			End With

			Set File = FSO.OpenTextFile(server.mappath(Url),2)

			EditHtml = "<!-- Gjord av [url]www.Borgdata.se[/url] -->" & Topp & "<!-- Meny -->" & Temp & "<!-- Start -->" & Mitten & "<!-- Slut -->" & Bott & "<!-- [url]www.Borgdata.se[/url] -->"
			
			File.Write EditHtml
			Set File = Nothing

		End If
	Next

	Set F = Nothing
	Set FSO = Nothing
```

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

## #5 — Boorg, 2005-11-03T14:46Z

Som vanligt har @nders rätt! =)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/136896-fel-fso