' Windows Cleanup Utility (VBScript - no saved logs)
' Author: Edmar-style clarity and usability

Option Explicit

Dim fso, tempFolder, winTempFolder, logText

Set fso = CreateObject("Scripting.FileSystemObject")

logText = "Windows Cleanup Utility" & vbCrLf & vbCrLf
logText = logText & "[" & FormatDateTime(Now, 4) & "] Starting cleanup..." & vbCrLf

' Clean User Temp
tempFolder = fso.GetSpecialFolder(2) ' %TEMP%
CleanFolder tempFolder

' Clean Windows Temp
winTempFolder = "C:\Windows\Temp"
CleanFolder winTempFolder

' Optional: Windows Update cache
CleanFolder "C:\Windows\SoftwareDistribution\Download"

' Optional: Recycle Bin
CleanFolder "C:\$Recycle.Bin"
CleanFolder "D:\$Recycle.Bin"

logText = logText & "[" & FormatDateTime(Now, 4) & "] Finished cleanup!" & vbCrLf

MsgBox logText, vbInformation, "Cleanup Logs"

' -------------------------------
' Subroutine: CleanFolder
' -------------------------------
Sub CleanFolder(folderPath)
    On Error Resume Next
    If fso.FolderExists(folderPath) Then
        logText = logText & "[" & FormatDateTime(Now, 4) & "] Cleaning: " & folderPath & vbCrLf
        Dim file, subFolder
        For Each file In fso.GetFolder(folderPath).Files
            file.Delete True
        Next
        For Each subFolder In fso.GetFolder(folderPath).SubFolders
            fso.DeleteFolder subFolder, True
        Next
    End If
    On Error GoTo 0
End Sub