lo agrego por si a alguien le interesa
Código
Option Explicit on error resume next Dim oFSOLog Dim oFSOProc Dim sDirectoryPathLog Dim sDirectoryPathProc Dim oFolderlog Dim ofolderProc Dim oFileCollectionlog Dim oFileCollectionProc Dim oFile Dim iDaysOld 'Personaliza los datos que necesita modificar iDaysOld = 30 Set oFSOLog = CreateObject("Scripting.FileSystemObject") sDirectoryPathLog = "D:\Archivos de Programa\Exchsrvr\Zilicom" set oFolderLog = oFSOLog.GetFolder(sDirectoryPathLog) set oFileCollectionLog = oFolderLog.Files 'si existen archivos mayores a (x) dias, se eliminaran. For each oFile in oFileCollectionLog If oFile.DateLastModified < (Date() - iDaysOld) _ And LCase(oFSOLog.GetExtensionName(oFile.Name)) = "log" _ And not LCase(oFile.Name) = "res1.log" _ And not LCase(oFile.Name) = "res2.log" Then oFile.Delete(True) End if Next 'Clean up Set oFSOLog = Nothing Set oFSOProc = Nothing Set oFolderLog = Nothing Set oFolderProc = Nothing Set oFileCollectionLog = Nothing Set oFileCollectionProc = Nothing Set oFile = Nothing
lo unico que tienen que cambiar es la cantidad de dias