@Hishow:
welcome to Bytes.com
you can't call for the directly code as solution.
we come here to ask how to do that -- not how you guy do that ==
to delete folders in vba you can use:
to rename or move folder/files you can use
-
Name firstPathName SecondPathName
-
if the second name is different from first one, file/folder will rename to that name.
you can get information of subfolder, file inside folder with
to know whichone is "older than 30 days"
go search google the
property Time modify of folder
then you can use
-
dim DeathDate as integer
-
-
DeathDate = Day(Now()) - day(Time modify of folder)
-
if deathDate >=30 then
-
'code to kill/rename/move subfolder
-
end if
-
and you have to loop all thing inside main folder.
-
for i = 1 to MaxItemInFolder
-
'Code to determine which subfolder can be delete having deathDate >=30
-
Next
-