if (aindex_2 < 10) ExitApp
А если число файлов в папке будет кратно 10?
]]>так как Loop, D:\wallpapers\*.* будет перебирать только существующие файлы, и остановится, когда они кончатся
Вот! С пониманием механизма пришло и решение:
1::
counter := 0
Loop
{
counter++
FileCreateDir, D:\test\%counter%
Sleep, 500
aindex_2 := 0
Loop, D:\test\*.*
{
if (A_Index < 11)
FileMove, %A_LoopFileLongPath%, D:\test\%counter%
aindex_2 := A_Index
}
if (aindex_2 < 10)
ExitApp
}
2::
returnКорявенькое, но работает.
]]>В результате отсутствия файла, я полагал.
http://www.script-coding.com/AutoHotkey/FileMove.html
Однако, если источник - одиночный файл (не шаблон) и если он не существует, ErrorLevel устанавливается в 0. Чтобы отследить такую ситуацию, используйте IfExist или FileExist() для проверки существования файла-источника перед его перемещением.
;раскидывает файлы по подпапкам:
/*
в цикле - Loop
создаёт новую папку - FileCreateDir
задержка, чтобы успевало создавать папку - Sleep
выделяет - Loop http://forum.script-coding.com/viewtopic.php?id=13425
и перемещает 10 файлов с расширением в новую папку - FileMove
A_LoopFileLongPath - путь к файлу, ВКЛЮЧАЯ САМ ФАЙЛ
кончились файлы - ErrorLevel != 0
завершение скрипта - ExitApp */
1::
counter := 0
Loop
{
counter++
FileCreateDir, D:\wallpapers\%counter%
Sleep, 500
Loop, D:\wallpapers\*.*
if A_Index < 11
FileMove, %A_LoopFileLongPath%, D:\wallpapers\%counter%
if (ErrorLevel != 0) ;НЕ РАБОТАЕТ! Шпарит, создаёт папки, когда файлы уже кончились!
ExitApp
}
2::
return