Как Удалить файлы по маске в директории и поддиректориях скрипта?!

[Guezt]

пользовался вот такой маской для удаления файлов 1.tmp 2.tmp

FileDelete(@ScriptDir &"\"&"*.tmp")

но теперь надо что бы удалять не только в директории скрипта но и в поддиректориях... смысл в том что имена папок поддиректории неизвестны :(

 

[ynbIpb]

#Include <File.au3>
$allfolders = _FileListToArray(@ScriptDir, "*", 2)
For $i=1 to $allfolders[0]
FileDelete(@ScriptDir & "\" & $allfolders[$i] & "\" & "*.*")
Next

 

[Guezt]

Спасибо, работает, но если количество поддиректорий неизвестно!? то есть глубина вложения 2 или более папок? как тогда быть?

Или если их вообще нет то выдает ошибку

 

[ynbIpb]

Ну проверки я думал всам сможешь вставить.

If IsArray($allfolders) Then; если это массив, значит что-то есть
;тут что-то делаем
EndIf

а вот что делать с поддиректориями я хз.

 

[snoitaleR]

Может, не совсем элегантно, но...

del /s *.tmp

 

[kaster]

Вот скрипт для рекурсивной обработки целевой папки на наличие и удаление файлов расширение которых задано в переменной filter

#include <File.au3>
$src = FileSelectFolder('Please, choose folder to process', '', 1 + 2 + 4, @ScriptDir)
If @error Then Exit
$filter = 'tmp|temp'; any other file extensions to be excluded from copy list separated by pipe "|"
_Delete($src, $filter)

Func _Delete($source, $filter = 'tmp|temp')
    ;MsgBox(0, '', $source & @CRLF & $destination)
    $aFolders = _FileListToArray($source, '*', 2); Folders
    $aFiles = _FileListToArray($source, '*', 1); Files
    If Not IsArray($aFolders) AND Not IsArray($aFiles) Then Return ''; No files or fodlers found in source path
    For $j = 1 to $aFiles[0]
        $ext = _ExtDefine($aFiles[$j])
        If StringInStr($filter, $ext) Then FileDelete($source & '\' & $aFiles[$j])
    Next
    For $i = 1 to $aFolders[0]
        $new_source = $source & '\' & $aFolders[$i]
        _Delete($new_source, $filter); Recursive processing for subfolders
    Next
EndFunc

;;; Function for determination of file extension
Func _ExtDefine($file)
    If StringInStr($file, '\') Then
        $aFile = StringSplit($file, '\')
        $file = $aFile[$aFile[0]]
    EndIf
    If Not StringInStr($file, '.') Then Return ''
    $aFile = StringSplit($file, '.')
    Return $aFile[$aFile[0]]
EndFunc

 

[Guezt]

Может, не совсем элегантно, но...

del /s *.tmp

Не хотелось бы с использованием командной строки... или остается только этот вариант?!

 

[kaster]

Guezt [?]

Не хотелось бы с использованием командной строки... или остается только этот вариант?!

это что, шутка такая?

 

[Guezt]

to Kaster

Спасибо! нет это не шутка это я просто страницу не обновил, а твой пост увидел только сегодня!