[Файловая система] Удаление файлов с исключениями

[sanf]

Подскажите как сделать скрипт удаления файлов и папок с исключениями.
Нужно удалить все файлы и папки по сл. пути C:\Users\%username%\AppData\Local\1C\1Cv82\
за исключением файлов с расширением *.pfl *.lst
и в пути C:\Users\%username%\AppData\Roaming\1C\1Cv82\
за исключением файлов с расширением *.pfl и папки ExtCompT

 

[AZJIO]

sanf
_FO_FileSearch, в параметре $fInclude указать False
Аналогично в _FO_FolderSearch.


Добавлено:

Сообщение автоматически объединено: 18 Окт 2012

sanf
Только тестируй на копиях, а то поудаляешь и будешь меня винить... Например папка ExtCompT не удалиться, а папки внутри вполне. Вернее выведет их в массив.

 

[sanf]

пути задавать $path ?
а как все выглядеть будет все равно не пойму, маловато знаний еще...(

 

[AZJIO]

sanf
Примерно так (не тестировал)

#include <Array.au3>
#include <FileOperations.au3>

$FileList = _FO_FileSearch('C:\Users\Admin\AppData\Local\1C\1Cv82', '*.pfl|*.lst', False)
_ArrayDisplay($FileList) ; смотрим массив

If MsgBox(4, 'Сообщение', 'Удалить файлы ?') = 6 Then ; если "Да", то
	$err = ''
	For $i = 1 To $FileList[0] ; цикл удаления файлов
		If Not FileDelete($FileList[$i]) Then ; если не удалось удалить с первого раза, то
			If Not (FileSetAttrib($FileList[$i], '-RST') And FileDelete($FileList[$i])) Then ; если не удалось удалить с предварительным снитием атрибута "Только чтение", то
				$err &= $FileList[$i] & @CRLF ; пишем в лог
			EndIf
		EndIf
	Next
	If $err Then MsgBox(0, 'Error', $err) ; если в логе хоть что-то есть, то выводим его
EndIf

для папок

$FileList = _FO_FolderSearch('C:\Users\%username%\AppData\Roaming\1C\1Cv82', 'ExtCompT', False)
_ArrayDisplay($FileList) ; смотрим массив

Только для папок по умолчанию уровень вложения равен нулю, думаю так и надо, ведь смотрим как я понимаю в корне. Хотя в этом случает можно использовать

_FileListToArray

и в цикле проверять чтобы папка не равна "ExtCompT"

 

[sanf]

Line 2
#include <FileOperations.au3>
Error: Error opening file

 

[ivsatel]

sanf

Значит нужно добавить эту библиотеку в:

c:\Program Files\AutoIt3\Include\