• Nenhum produto no carrinho.

Script – Excluir arquivos antigos

On error resume next

‘nome da pasta

Path = “C:teste”

 

‘quantidade de dias

strData = 30

 

Set ObjFSO = CreateObject(“Scripting.FileSystemObject”)

Set Folder = ObjFSO.GetFolder(Path)

Set MyFiles = Folder.files

 

If Not ObjFSO.FolderExists(Path) Then

wscript.echo “Pasta invalida”

WScript.Quit

End If

 

IF MyFiles.Count 0 Then

For Each MyFiles in Folder.Files

if DateDiff(“d”,myfiles.DateLastModified,now) > strData Then

MyFiles.Delete

End if

Next

end if

06/01/2011
WB - Todos os direitos reservados
X