runtime error 438 1

[din2005]

Hi i get this error msg saying runtime error 438. The code points out to line highlighted red.... any suggestions how i could solve this?

Dim fso As Object
Dim myFolder As Object
Dim AllFolders As Object
Dim curFolder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set myFolder = fso.GetFolder("C:\image")
Set AllFolders = myFolder.Folders

For Each curFolder In AllFolders
If curFolder.Name Like "[a-z][a-z]####" Then
Debug.Print curFolder.Name
Else
fso.DeleteFolder curFolder.Name
End If
Next
Set AllFolders = Nothing
Set myFolder = Nothing
Set fso = Nothing


many thanks

 

[RoyVidar]

Try:

[tt]Set AllFolders = myFolder.SubFolders[/tt]

Roy-Vidar

 

[din2005]

Thanks roy...

that worked but further along it says path not found... on the line highlighted red do u know what could be wrong

Dim fso As Object
Dim myFolder As Object
Dim AllFolders As Object
Dim curFolder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set myFolder = fso.GetFolder("C:\image")
Set AllFolders = myFolder.SubFolders
For Each curFolder In AllFolders
If curFolder.Name Like "[a-z][a-z]####" Then
Debug.Print curFolder.Name
Else
fso.DeleteFolder curFolder.Name
End If
Next
Set AllFolders = Nothing
Set myFolder = Nothing
Set fso = Nothing

 

[RoyVidar]

I think the DeleteFolder method accepts the path of the folder to delete.

[tt]fso.DeleteFolder curFolder.Path [/tt]

Roy-Vidar