For $m = 1 To $k
If StringRegExp($FileList[$m], "(.*jpg)|(.*JPG)") Then
While $flag
$check = _ArrayBinarySearch($FileList,$picname & $i &".jpg",$m)
If $check > $m Then
_ArrayDelete($avArray, $check)
$j -= 1
$i += 1
Else
$flag = False
FileMove(@ScriptDir & "\" & $FileList[$j], @ScriptDir & "\" & $picname & $i & ".jpg", 1)
_ArrayDelete($avArray, $m)
$j -= 1
$i += 1
EndIf
WEnd
EndIf
WEnd
If StringRegExp($FileList[$m], "(.*jpg)|(.*JPG)") Then
While $flag
$check = _ArrayBinarySearch($FileList,$picname & $i &".jpg",$m)
If $check > $m Then
_ArrayDelete($avArray, $check)
$j -= 1
$i += 1
Else
$flag = False
FileMove(@ScriptDir & "\" & $FileList[$j], @ScriptDir & "\" & $picname & $i & ".jpg", 1)
_ArrayDelete($avArray, $m)
$j -= 1
$i += 1
EndIf
WEnd
EndIf
WEnd