[решено] Удаление пустышек. Как?

[Pozia]

Подскажите скрипт который удалит в указанной директории все файлы нулевого размера. Спасибо.

[madmasles]

Pozia,
$aReturn = _FileSearch(@ScriptDir & "\MyFolder", '*.*')

For $i = 1 To UBound($aReturn) - 1
If FileGetSize($aReturn[$i]) = 0 Then
FileDelete($aReturn[$i])
EndIf
Next

Func _FileSearch($sPath, $sFileMask)
Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)

While 1
$sOut &= StdoutRead($hDir, False, True)
If @error Then ExitLoop
WEnd

$aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
If @error Then Return SetError(1)

$aOut[0] = UBound($aOut) - 1
Return $aOut
EndFunc ;==>_FileSearch