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

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

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

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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)

[Автор]

Сообщения