Скрипт на почистку Prefetch & Temp
- Автор темы scanfail
- Дата начала
Удаление файлов по маске к сожалению не прокатит с вложеными папками
Удалить содержимое папки можно например так:
Сначала получить список файлов и папок из нужной папки.
Потом циклом, подставляя имена файлов/папок удалить их.
Либо самый просто вайриант
Удалит папку со всем содержимым а потом создаст новую с таким же именем
Удалить содержимое папки можно например так:
Сначала получить список файлов и папок из нужной папки.
Потом циклом, подставляя имена файлов/папок удалить их.
Либо самый просто вайриант
Код:
DirRemove("FolderPath")
DirCreate("FolderPath")Удалит папку со всем содержимым а потом создаст новую с таким же именем
Код:
$aFileList = _FileListToArray(@TempDir, "*", 1)
$aFolderList = _FileListToArray(@TempDir, "*", 2)
For $i = 1 To UBound($aFileList)-1
FileDelete($aFileList[$i])
Next
For $i = 1 To UBound($aFolderList)-1
DirRemove($aFolderList[$i])
Nextвот грубый вариант
Удаление файлов отдельно, вложеных папок (с вложеными файлами) отдельно
- Сообщения
- 3,570
- Репутация
- 632
или так ..вариант без грубостей ;)
Код:
$aReturn = _FileSearch(@TempDir, "*")
For $id = 1 To $aReturn[0]
FileDelete($aReturn[$id])
DirRemove($aReturn[$id],1)
Next
ShellExecute(@TempDir)
Func _FileSearch($sPath, $sFileMask = "*", $iFlag = 0, $iSubDir = 1, $iSort = 0)
Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sFiles
If Not StringInStr(FileGetAttrib($sPath), "D") Then
Return SetError(1, 0, 0)
EndIf
If $iSubDir = 1 Then
$sAttrib &= ' /S'
EndIf
If $iSort = 1 Then
$sAttrib &= ' /O:N'
EndIf
Switch $iFlag
Case 1
$sAttrib &= ' /A-D'
Case 2
$sAttrib &= ' /AD'
Case Else
$sAttrib &= ' /A'
EndSwitch
$sOut = StringToBinary('0' & @CRLF, 2)
$sPath = StringRegExpReplace($sPath, '\\+$', '')
$sFileMask = StringRegExpReplace($sFileMask, '^;+|;+$', '')
$sFileMask = StringRegExpReplace($sFileMask, ';{2,}', ';')
$aMasks = StringSplit($sFileMask, ';')
For $i = 1 To $aMasks[0]
If StringStripWS($aMasks[$i], 8) = "" Then
ContinueLoop
EndIf
$sFiles &= '"' & $sPath & '\' & $aMasks[$i] & '"'
If $i < $aMasks[0] Then
$sFiles &= ';'
EndIf
Next
$hDir = Run(@ComSpec & ' /U /C DIR ' & $sFiles & ' /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)
While 1
$sRead = StdoutRead($hDir, False, True)
If @error Then
ExitLoop
EndIf
If $sRead <> "" Then
$sOut &= $sRead
EndIf
Wend
$aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
If @error Or UBound($aOut) < 2 Then
Return SetError(2, 0, 0)
EndIf
$aOut[0] = UBound($aOut)-1
Return $aOut
EndFuncscanfail
Есть у меня аналогичный au3 с перебором всех файлов, но я всётаки оставил bat-файл ради универсальности. Пользуюсь этим уже долго
Кстати давненько делал утилиту TweakerXP и там есть кнопка - создать ярлык "Очистка Temp", "Выкл", "Перезагрузка". Одним кликом создаётся bat-файл в нужном каталоге и с ярлыком на рабочем столе.
Есть у меня аналогичный au3 с перебором всех файлов, но я всётаки оставил bat-файл ради универсальности. Пользуюсь этим уже долго
Код:
cd /d "%temp%" && rd /s /q "."