Am I Just Retarded Today?

How come this is not working?

Code:

---

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

Try this:

Code:

---

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

---

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

Quote:

---

Originally posted by cajsoft
Try this:

Code:

---

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 :D