---
title: "Söka igenom textfiler som finns i en mapp och göra olika saker beroende på innehåll"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/180136-söka-igenom-textfiler-som-finns-i-en-mapp-och-göra-olika-saker-beroende-på-innehåll"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2009-09-07T17:42:47.000Z"
updated: "2009-09-07T19:05:34.000Z"
replies: 2
views: 444
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/180136-söka-igenom-textfiler-som-finns-i-en-mapp-och-göra-olika-saker-beroende-på-innehåll"
---

# Söka igenom textfiler som finns i en mapp och göra olika saker beroende på innehåll

## #1 — devotion, 2009-09-07T17:42Z

Hej,

Någon som kan putta mig i rätt riktning? :)  

Jag vill som rubriken antyder söka igenom en mapp och leta upp textfiler som har ett visst innehåll och göra saker

Om första raden innehåller:

```
#FLAGGA 0
```

Skall inget göras

Om raden innehåller:

```
#FLAGGA 1
```

Skall filen flyttas.

Jag har denna kod som kan ta reda på om det är en 1 eller 0

```
	dim sLine
	dim n
	
	sLine = trim(sLine) 
	if len(sLine) <> 9 then 
		' error! raden för kort 
	else 
		n = mid(sLine, 9, 1) 
		if n = "0" then
			'Do nothing
		elseif n = "1" then
			'Move file
		end if
	end if
```

(tack peter s)

Som sagt, någon som kan putta mig i rätt riktning.

Mvh
Henrik

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

## #2 — devotion, 2009-09-07T18:16Z

Hej,

Jag har nu lyckats att loopa igenom alla filer i en mapp!

```
Option explicit

Sub main()	

	dim sPath
	dim Fs, Folder, FileColl, f
	dim s
	
	s = ""
	
	'Sökväg till utkorgen
	sPath = "\\mapp\"
	
	'Skapa ett filesystemobjekt
	Set Fs = CreateObject("Scripting.FileSystemObject")
	
	Set Folder = Fs.GetFolder(sPath)
	
	Set FileColl = Folder.Files
	For Each f in FileColl
		s = s & f.Name & VbCrLf
	Next
	
	msgBox s
	
	Set Fs = Nothing
	Set Folder = Nothing
	Set FileColl = Nothing
	
end sub
```

Jag kan lista upp alla filnamn och visa dom...

Hur gör jag för att öppna filen och titta om villkoret uppfylls?

Mvh
Henrik

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

## #3 — devotion, 2009-09-07T19:05Z

Hej igen,

Nu har jag kommit så här långt:

```
'
'
'
'

Option explicit

Sub main()	

	dim sExportPath, sArchivePath
	dim Fs, Folder, FileColl, fi, sLine, f
	dim sStatus
	dim s
	
	
	'Sökväg till utkorgen
	sExportPath = "\\Mapp\SIE\Utkorg\"
	
	'Sökväg till Arkiv
	sArchivePath = "\\Mapp\SIE\Arkiv\"
	
	'Skapa ett filesystemobjekt
	Set Fs = CreateObject("Scripting.FileSystemObject")
	
	Set Folder = Fs.GetFolder(sExportPath)
	
	Set FileColl = Folder.Files
	
	For Each fi in FileColl
		set f=Fs.OpenTextFile( fi,1,false)
		sLine = f.readline
		sStatus = GetStatus(sLine)
		f.close
		if sStatus = 1 then
			fs.MoveFile fi, sArchivePath
		End if
	Next

	Set Fs = Nothing
	Set Folder = Nothing
	Set FileColl = Nothing
	Set fi = Nothing
	Set f = Nothing
	
end sub

Function GetStatus(sLine)

	dim n
	sLine = trim(sLine) 
	if len(sLine) <> 9 then 
		GetStatus = -1
	else 
		n = mid(sLine, 9, 1) 
		if n = "0" then
			GetStatus = 0
		elseif n = "1" then
			GetStatus = 1
		end if
	end if
End function
```

Det som jag vill ska hända, händer och allt verkar funka som det skja.

Är dock intresserad av synpunkter på koden. Dvs variabelnamn, uppställning osv....

Mvh
Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/180136-söka-igenom-textfiler-som-finns-i-en-mapp-och-göra-olika-saker-beroende-på-innehåll