Script para borrar archivos ??

[dxtt57]

Perdon, creo que no me he explicado nada bien...

El programita esta pensado para meterlo en un servidor y que borre cada 20 dias todos los ficheros temporales que se generan. EL servidor está en linux, por lo que un .bat no valdría ya que bat es MS2, por eso hablaba de un script...

El codigo que decia era este:

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 = "C:\Prueba"
set oFolderLog = oFSOLog.GetFolder(sDirectoryPathLog)
set oFileCollectionLog = oFolderLog.Files

'si existen archivos mayores a (30) dias, se eliminaran.

For each oFile in oFileCollectionLog
If oFile.DateLastModified < (Date() - iDaysOld) 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


Mil gracias de nuevo