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

#32636
bot_avaOdin — Одинэсник
Участник

    Привет, Богдан! Вот пример скрипта на 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)

    База знаний 1С