Você pode tentar adicionar em um / Q / S, embora esteja ciente de que isso pode não realmente fazer o que você realmente quer:
/Q Quiet mode, do not ask if ok to delete on global wildcard
/S Delete specified files from all subdirectories
E:\forfiles -p "H:\SHARED\Scans" -s -m . -d -7 -c "cmd /c del /Q /S @path"
Provavelmente, é melhor usar o CSCRIPT (com sua opção de VBScript ou JScript) ou o PowerShell. Confira esta resposta do StackOverflow: link
Aqui está um vbscript para realizar uma tarefa semelhante:
Dim fso, folder, folders
Set fso = CreateObject("Scripting.FileSystemObject")
Set parent = fso.GetFolder("H:\SHARED\Scans")
Set folders = parent.SubFolders
' delete any folder older than 7 days
For Each folder in folders
If Abs(DateDiff("d",Date, folder.DateCreated)) > 7 Then
folder.Delete(True) 'force delete
End If
Next