davidsuarez.es

Script vbs que chequea el tamaño de un archivo y si lo supera elimina el archivo. Yo lo utilizo para esas bases de datos que crecen sin control por su uso. Además graba un aviso en el visor de eventos.

salvar el código siguiente como filesize.vbs

Option Explicit
Dim FSO, File, strSize, strFile, alarmSize, WshShell
strFile=”RUTA_A_TU_FICHERO”
‘ Tamaño máximo permitido en Megabytes
alarmSize=2

Set FSO = CreateObject(“Scripting.FileSystemObject”)
Set File = FSO.Get#File(strFile)
strSize = File.Size\1024\1024
‘Wscript.Echo “Filesize : ” & File.Name & ” is ” & strSize &”Mb. Alarmsize set to ” & alarmSize & ” Mb.”
If strSize > alarmSize Then
‘Wscript.Echo “Filesize Warning: ” & File.Name & ” is larger then ” & alarmSize &” Mb”
Set WshShell = CreateObject(“WScript.Shell”)
WshShell.LogEvent 4, “Alarma tamaño de archivo: ” & File.Name& ” es mas grande que ” & alarmSize &” Mb”
Set WshShell = nothing
dim filedel
Set filedel = CreateObject(“Scripting.FileSystemObject”)
filedel.DeleteFile strFile
End If
Set File = Nothing
Set FSO = Nothing
Wscript.Quit(1)

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• Añade tu web a buscadores