---
title: "Leker lite..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/49018-leker-lite"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "K++"
published: "2002-07-29T21:34:04.000Z"
updated: "2002-07-30T10:25:23.000Z"
replies: 4
views: 209
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/49018-leker-lite"
---

# Leker lite...

## #1 — K++, 2002-07-29T21:34Z

```
Dim fsObj
Dim indir, outdir
Dim infile

Set fsObj	=	CreateObject("Scripting.FileSystemObject")
Set inDir	=	fsObj.GetFolder("d:\database1").Files
Set outDir	=	fsObj.GetFolder("d:\database2")

For Each inFile in indDir

	If Right(inFile.Name, 3) = "mdb" Then
		inFile.Copy(outDir.Path & "\" & inFile.Name) ' Rad 12
	End if
Next

Set inDir	=	Nothing
Set outDir	=	Nothing
Set fsObj	=	Nothing
```

Error Type:
Microsoft VBScript runtime (0x800A01C3)
Object not a collection
/vbs/001.asp, line 12

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

## #2 — LarsG, 2002-07-29T21:50Z

```
inFile.Copy outDir.Path & "\" & inFile.Name
```

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

## #3 — K++, 2002-07-29T22:50Z

Fungerar fortfarande inte. :/

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

## #4 — LarsG, 2002-07-29T23:00Z

Finns det en katalog som heter database2?

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

## #5 — OveRRidE, 2002-07-30T10:25Z

Felmeddelandet talar för sig självt. Du har stavat fel till 'inDir' på rad 9. 

```
For Each inFile in indDir
```

 borde vara

```
For Each inFile in inDir
```

 :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/49018-leker-lite