#include <File.au3>
;#include <Array.au3>
$sDir = @ScriptDir & '\Test\'
$iDel = 0
$iNoDel = 0
$aFiles = _FileListToArray($sDir, '*', 1)
If @error Then Exit -13
;_ArrayDisplay($aFiles)
For $i = 1 To $aFiles[0]
If StringRegExp($aFiles[$i], '(?i)^\d{1,}_\d{5}_\d{2}\.png|jpg$') Then
$iNoDel += 1
ContinueLoop
EndIf
;If FileDelete($sDir & $aFiles[$i]) Then
If FileRecycle($sDir & $aFiles[$i]) Then
$iDel += 1
EndIf
Next
MsgBox(64, 'Info', 'All files: ' & $aFiles[0] & @LF & 'Del: ' & $iDel & @LF & 'No Del: ' & $iNoDel & @LF & _
'Error Del: ' & $aFiles[0] - $iNoDel - $iDel)
#include <File.au3>
Global $Path = @ScriptDir & '\Test'
$Files = _FileListToArray($Path)
For $i = 1 To $Files[0]
$Reg = StringRegExp($Files[$i], '\d_\d{5}_\d{2}', 3)
If $Reg = 1 Then FileDelete($Path & '\' & $Files[$i])
Next
#include <File.au3>
$sDir = @ScriptDir & '\Test\'
$aFiles = _FileListToArray($sDir, '*.*', 1)
If @error Then Exit
For $i = 1 To $aFiles[0]
If Not StringRegExp($aFiles[$i], '(?i)^\d+_\d{5}_\d{2}\.(png|jpg)$') Then
FileRecycle($sDir & $aFiles[$i])
ConsoleWrite($aFiles[$i] & @LF)
EndIf
Next#include <Array.au3> ; для _ArrayDisplay
$aFileList=_FO_FileSearch($sPath, '?_?????_??.png', False)
_ArrayDisplay($aFileList, 'вот')
