fix_sequential_files.ps1

$d = ""
$lastfile = ""
dir | sort | foreach {
	if (-not [math]::max($d, $_.name -match "([^\d]*)(\d+)(.+)")) { continue }
	$nd = [int32]::parse($matches[2])
	if (($lastfile) -and ($d -ne "") -and (($d + 1) -ne $nd)) {
		if (($nd - $d) -gt 3) {
      			echo "ERROR! MANUALLY CHECK AT " $lastfile.name
			exit
   		}
		($d+1)..($nd-1) | foreach {
			$copyfile = ($matches[1] + $_ + $matches[3])
			copy $lastfile $copyfile
			$count = $count + 1
			echo "FIXED:" $copyfile
		}
	}
	$lastfile = $_
	$d = $nd
}