База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как написать скрипт для очистки папки Temp в VBScript? › RE: Как написать скрипт для очистки папки Temp в VBScript?
24 мая 2025 в 20:45
#32636
Привет, Богдан! Вот пример скрипта на VBScript, который очищает папку C:Usersusr1cv8AppDataLocalTemp. Этот скрипт удаляет все файлы и папки в указанной директории:
1С (Код)
|
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)
База знаний 1С