HELP PLEASE!!!! Script VBS

Hi all,

Im having problems with a script.

Im trying to create a script that check if date of folders in a path are older than 30 days and delete them.

But the hard part is that i need to check in a second level, for example:

C:\path\folder1\folder2

The folder i wanna check is folder2 and in the same level of folder 1 exists more folders.

I add my code and please if u can help this scripting Noob :(((

Option Explicit
Dim objSistema
Dim objCarpeta
Dim objDirectorio
Dim Fecha_Antiguedad
Dim Ruta
Ruta = "c:\Example"
Fecha_Antiguedad = DateAdd("d",-30, Date )
Set objSistema = CreateObject("Scripting.FileSystemObject")
Set objCarpeta = objSistema.GetFolder(Ruta)
For Each objDirectorio In objCarpeta.SubFolders
If DateValue(objDirectorio.DateCreated) <= DateValue(Fecha_Antiguedad) Then

objDirectorio.Delete
End If
Next
Set objDirectorio = Nothing
Set objCarpeta = Nothing
Set objSistema = Nothing

THANKS IN ADVANCE!

Do you want to check if C:\path\folder1\folder2 is older than 30 days? Then you don't need a loop at all. Or do you want to check if the subfolders of C:\path\folder1\folder2 are older than 30 days? If you only want to check the first level of subfolders, you simply set the variable Ruta to "C:\path\folder1\folder2".

For further advice you need to supply more details about your requirements.

BTW, .DateCreate already is of type Date, so it's pointless to convert it to type Date.

Ruta="C:\path\folder1"

Thanks for the answers first of all.
 
Yes, i want to check if C:\path\folder1\folder2 is older than 30 days but the question is that i only wanna check this second level and in the first level exists more folders but that i cannot delete, for example:
 
C:\path\folder1a_cannot_delete\folder2a_wanna_delete
C:\path\folder1a_cannot_delete\folder2b_wanna_delete
C:\path\folder1a_cannot_delete\folder2c_wanna_delete
C:\path\folder1a_cannot_delete\folder2d_wanna_delete
C:\path\folder1b_cannot_delete\folder2a_wanna_delete
C:\path\folder1b_cannot_delete\folder2b_wanna_delete
C:\path\folder1c_cannot_delete\folder2_wanna_delete
C:\path\folder1d_cannot_delete\folder2a_wanna_delete
C:\path\folder1d_cannot_delete\folder2b_wanna_delete
C:\path\folder1e_cannot_delete\folder2
 
There is an app that creates a lot of folders (in level folder1) as a projects, and after creates a second level of directories to throw the logs (folder2) im interested to check the age of ONLY the level 2, because i only wanna delete the logs not the project's folder.
 
Sorry 4 my english ...
 
THANKS ANOTHER TIME IN ADVANCE!!!

Since you already know the full path to the folder, it's as simple as:

Ruta = "C:\path\folder1\folder2"
Set objSistema = CreateObject("Scripting.FileSystemObject")
Set objCarpeta = objSistema.GetFolder(Ruta)
If objCarpeta.DateCreated <= (Date - 30) Then objCarpeta.Delete True

Thanks but this is not valid, cause as I said in the other reply exists a lot of folder i wanna check. Not only the path u said.
 
The app creates folders with the date en level2 (folder2) with the date, u understand? But also creates folders in level 1 (folder1) but this ones dont wanna to check cause i dont need to delete.
 
Thanks

Sorry, my misunderstanding. So you have a root folder C:\path and want to check all subfolders if their (2nd level) subfolders are older than 30 days? For that you need two loops:

Ruta = "C:\path"
Fecha_Antiguedad = Date - 30
Set objSistema = CreateObject("Scripting.FileSystemObject")
Set objCarpeta = objSistema.GetFolder(Ruta)
For Each sf1 In objCarpeta.SubFolders
 For Each sf2 In sf1.SubFolders
 If sf2.DateCreated <= Fecha_Antiguedad Then sf2.Delete True
 Next
Next

Works perfect!!!!!
 
Thanks 4 all ur help!

De nada.