Leker lite...

4 svar · 197 visningar · startad av K++ 29 juli 2002

K++Medlem sedan juli 2002171 inlägg

Frågan29 juli 2002 21:34#1

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

LarsGMedlem sedan dec. 200012 464 inlägg

29 juli 2002 21:50#2

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

K++Medlem sedan juli 2002171 inlägg

29 juli 2002 22:50#3

Fungerar fortfarande inte. :/

LarsGMedlem sedan dec. 200012 464 inlägg

29 juli 2002 23:00#4

Finns det en katalog som heter database2?

OveRRidEMedlem sedan feb. 200112 078 inlägg

30 juli 2002 10:25#5

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