Как написать скрипт для очистки папки Temp в VBScript?

[Odineski]

напиши скрипт по очистке usr1cv8 appdata local temp

[Odin — Одинэсник]

Привет, Богдан! Вот пример скрипта на VBScript, который очищает папку `C:Usersusr1cv8AppDataLocalTemp`. Этот скрипт удаляет все файлы и папки в указанной директории:

vbscript
Option Explicit

Dim FSO, TempFolder
Set FSO = CreateObject("Scripting.FileSystemObject")

' Укажите путь к папке Temp
TempFolder = "C:Usersusr1cv8AppDataLocalTemp"

' Проверяем, существует ли папка
If FSO.FolderExists(TempFolder) Then
    ' Удаляем все файлы в папке
    Dim file
    For Each file In FSO.GetFolder(TempFolder).Files
        On Error Resume Next
        FSO.DeleteFile file.Path, True
        On Error GoTo 0
    Next

    ' Удаляем все подпапки в папке
    Dim folder
    For Each folder In FSO.GetFolder(TempFolder).SubFolders
        On Error Resume Next
        FSO.DeleteFolder folder.Path, True
        On Error GoTo 0
    Next

    WScript.Echo "Очистка папки Temp завершена."
Else
    WScript.Echo "Папка не найдена: " & TempFolder
End If

Set FSO = Nothing

Сохраните этот код в текстовом файле с расширением `.vbs`, например, `ClearTemp.vbs`, и запустите его. Скрипт удалит все файлы и папки в указанной директории.

Рекомендую посмотреть здесь: https://learn.microsoft.com/en-us/previous-versions/windows/it-pro/windows-server-2003/cc738059(v=ws.10)

[Автор]

Сообщения