Fijate que es vbs, no VB, la diferencia es que uno es compilado y el otro intepretado (un simple script)
Igualmente como no era difícil te dejo lo siguiente:
Set objfso = createobject("scripting.filesystemobject")
Set CRespaldos = objfso.getfolder("C:\Carpeta_Respaldos")
Set CDiaria = objfso.subfolders
Set LogFile = objfso.opentextfile("delitemLog.txt", 8, true)
for each C in CDiaria
if datediff("d",C.datecreated, now()) > 15 then
CPath = C.path
CDCreated = C.datecreated
objfso.deletefolder(CPath, true)
LogFile.writeline now() & vbtab & CPath & vbtab & CDCreated
end if
next
LogFile.close
Elimina las subcarpetas dentro de la carpeta "
Carpeta_Respaldos", cuya fecha de creación sea mayor a 15 días, además de que por lo mismo crea un archivo de log dentro del mismo directorio donde esta el script, con fecha/hora, ruta carpeta, y fecha de creación que tenía la carpeta antes de ser borrada.
Ya me dirás si sirve, te recomiendo probarlo en una copia de la carpeta ya que yo por lo menos no lo he probado
Saludos