[Файловая система] Копирование файлов с определённым размером

If Not FileGetSize("имя") > (100 * 1024) Then
    FileCopy()
EndIf

#Include <File.au3>
#Include <Array.au3>

$Files = _FindFiles('C:', '*.*')

Func _FindFiles($sRoot, $sFile)

    Local $FileList, $Array[1]

    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
			_ArrayAdd($Array,$sRoot & '\' & $FileList[$i])
        Next
    EndIf
    _ArrayDelete($Array, 0)
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            $TempArr = _FindFiles($sRoot & '\' & $FileList[$i], $sFile)
			_ArrayConcatenate($Array, $TempArr)
        Next
    EndIf

	Return $Array
EndFunc   ;==>_FindFiles
_ArrayDisplay($Files)