Как написать скрипт для очистки папки Temp в VBScript?
Как написать скрипт для очистки папки Temp в VBScript?
напиши скрипт по очистке usr1cv8 appdata local temp
Привет, Богдан! Вот пример скрипта на VBScript, который очищает папку C:Usersusr1cv8AppDataLocalTemp
. Этот скрипт удаляет все файлы и папки в указанной директории:
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)
Для ответа в этой теме необходимо авторизоваться.