DevAdmin Blog

Blog di Ermanno Goletto (Microsoft MVP Directory Services - MCITP - MCTS - MCSA - MCP)
posts - 887, comments - 447, trackbacks - 13

My Links

News

Avatar

Curriculum Vitae

Visualizza il profilo di Ermanno Goletto su LinkedIn


Il contenuto di questo blog e di ciascun post viene fornito “così come é”, senza garanzie, e non conferisce alcun diritto. Questo blog riporta il mio personale pensiero che non riflette necessariamente il pensiero del mio datore di lavoro.

Logo Creative Commons Deed


Logo SysAdmin.it SysAdmin.it Staff


Logo TechNet Forum TechNet Italia @ForumTechNetIt Follow TechNet Forum on Twitter


Logo MVP


Ermanno Goletto Follow ermannog on Twitter

Article Categories

Archives

Post Categories

Blogs

Friends

Knowledge Base

MVP Sites

Resources

Clear dei file temporanei dell'utente in Windows XP

Se è necessario fare pulizia in modo schedulato dei file temporanei dell'utente è possibile utilizzare due approcci:

Il primo basato sul comando CleanMGR il cui utilizzo è spiegato nel seguente:
Automazione dello strumento Pulitura disco in Windows XP

Il secondo approccio è quello di utilizzare un vbscript per eliminare i file e scedularlo. Il seguente script elimina i file temporanei la cui data di modifica differisce da quella attuale di un numero di giorni impostabile tramite la costante days:

Option Explicit
On Error Resume Next

Const days = 3
Dim fso, folder, file, shell, count

Set fso = CreateObject("Scripting.FileSystemObject")
Set shell=CreateObject("WScript.Shell")

Set folder = fso.GetFolder(Shell.ExpandEnvironmentStrings("%TEMP%"))

count=0
For Each file in folder.Files
  If DateDiff("d", file.DateLastModified, Now) >= days Then
    file.Delete
    If Not fso.FileExists(file.Path) Then
      count=count+1
    End If
  End If
Next

msgbox count & " temporary files deleted."

Set shell = Nothing
Set fso = Nothing
Set folder = Nothing
Set file = Nothing

Print | posted on Tuesday, April 22, 2008 7:02 PM | Filed Under [ Links Code, Snippets & Scripts IT ]

Feedback

No comments posted yet.

Post Comment

Title  
Name  
Email
Url
Comment   
Please add 4 and 6 and type the answer here:

Powered by:
Powered By Subtext Powered By ASP.NET