Deleting directory of more than 30 days

[Mannat]

I am looking for a DOS command to delete the subdirectory of a directory XX A with a creation date greater than 30 days from the date of the day. For a project of video monitoring, which records can not exceed 30 days of storage.

Note: Be indulgent please because I've never done programming. thank you for your responses.

[Modifier]

Hello,

Dos it not so much flexible instead you can vbscript to do it.here i have this code .I confirm there is no DOS command unit that makes the job. Batch is a real gas plant. Is better to move to another language (vbscript to test but something about it should work):

[JoeFrat]

Hi modifier is right here the code for your requirement in vb script hope this will help you

Select All 
Dim objFso, objFolder, objSubFolder 
Dim strPath 
Dim diffDate 
Dim arrSubFolder() 
Dim i 

strPath = "c:\tmp\toto" 
nbDays = 30 

Set objFso = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(strPath) 
Set objSubFolder = objFolder.SubFolders 

For Each folder in objSubFolder 
diffDate = DateDiff("d",folder.DateCreated,Now) 
if diffDate > nbDays then 
ReDim preserve arrSubFolder(i) 
arrSubFolder(i) = folder.Name 
i = i + 1 
end if 
Next 

For Each folder in arrSubFolder 
objFSO.DeleteFolder(strPath & "\" & folder) 
Next 

set objFso = nothing 
set objFolder = nothing 
set objSubFolder = nothing

[Mannat]

Originally Posted by JoeFrat

Hi modifier is right here the code for your requirement in vb script hope this will help you

Select All 
Dim objFso, objFolder, objSubFolder 
Dim strPath 
Dim diffDate 
Dim arrSubFolder() 
Dim i 

strPath = "c:\tmp\toto" 
nbDays = 30 

Set objFso = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(strPath) 
Set objSubFolder = objFolder.SubFolders 

For Each folder in objSubFolder 
diffDate = DateDiff("d",folder.DateCreated,Now) 
if diffDate > nbDays then 
ReDim preserve arrSubFolder(i) 
arrSubFolder(i) = folder.Name 
i = i + 1 
end if 
Next 

For Each folder in arrSubFolder 
objFSO.DeleteFolder(strPath & "\" & folder) 
Next 

set objFso = nothing 
set objFolder = nothing 
set objSubFolder = nothing

In theory they will contain only files (recordings). Thank you for the code, I will show it to my colleague. And it will test. Ah I did not specify. It should also be removed empty directories .