---
title: "Kontrollera om det finns filer i en mapp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/164997-kontrollera-om-det-finns-filer-i-en-mapp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2007-09-29T06:30:04.000Z"
updated: "2007-09-29T08:08:53.000Z"
replies: 2
views: 578
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/164997-kontrollera-om-det-finns-filer-i-en-mapp"
---

# Kontrollera om det finns filer i en mapp

## #1 — devotion, 2007-09-29T06:30Z

Hej!

Jag har följande kod:

```
Sub main()
	dim oFS, oFolder, oFile
	dim re, sTaskNr, line, nArtr, nAmount
	dim m
	
	Set oFS=CreateObject("Scripting.FileSystemObject") 
	if oFS.FolderExists(Application.Setting("CommonPath") & "Import\Articles\ImportFiles") then
		set oFolder = oFS.GetFolder(Application.Setting("CommonPath") & "Import\Articles\ImportFiles").files
		for each oFile in oFolder
			
			msgBox oFile.name
			set re = new regexp
			set oFile = oFS.opentextfile((Application.Setting("CommonPath") & "Import\Articles\ImportFiles\" & oFile.name & ""), 1)
			while not oFile.AtEndOfStream
				 'Första raden
				 if oFile.line = 1 then
					line = oFile.ReadLine
					re.pattern = "\d+"
					if re.test(line) then
						set sTaskNr = re.execute(line)(0)
						msgBox sTaskNr
					else
						'Error!
					end if
				 else
					'De andra raderna..
					line = oFile.ReadLine
					re.pattern = "^%([^#]+)#\t(\d+)$"
					set m = re.execute(line)
					if m.Count = 1 then
						nArtr = m(0).submatches(0)
						nAmount = m(0).submatches(1)
						msgBox "artikelnummer: " & nArtr & " Antal: " & nAmount
					end if
				end if
			wend
		
		next
	else
		'wee
	end if
End sub
```

Hur kompletterar man den att kontrollera om det finns några filer i angiven mapp?

Om det inte gör det ska en messageBox visas? :)  

Mvh
Henrik

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

## #2 — @nders, 2007-09-29T06:49Z

```
if oFolder.Count = 0 then
     msgbox("devotion har postat i fel forum ;-)")
else
     ....
end if
```

edit: satte rätt namn på objektet med alla filer

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

## #3 — devotion, 2007-09-29T08:08Z

Thanx..  ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/164997-kontrollera-om-det-finns-filer-i-en-mapp