Am I Just Retarded Today?

[kleinma]

How come this is not working?

Dim FSO as FileSystemObject
Dim objFile as file
Dim objFolder as folder

'FolderPath = a valid folder name on drive
Set objFolder = FSO.GetFolder(FolderPath)

For Each objFile In objFolder
 'CODE HERE
next

I get an error on the For Each line saying
object doesn't support property or method

i could have sworn that this was working a day ago though

[cajsoft]

Try this:

Dim fso As New FileSystemObject
Dim AFile As File
Dim AFiles As Files
Dim AFolder As Folder

Set AFolder = fso.GetFolder(folder)
For Each AFile In AFolder.Files

[cafeenman]

check out your object browser. It should tell you what you can do.

[kleinma]

Originally posted by cajsoft
Try this:

Dim fso As New FileSystemObject
Dim AFile As File
Dim AFiles As Files
Dim AFolder As Folder

Set AFolder = fso.GetFolder(folder)
For Each AFile In AFolder.Files

YOU DUMB BA$TARD <--- to myself...

ahhh yes i needed objFolder.Files to loop...

well thanks for brining me back to average IQ level