|
Ответ: Функция Скриншот.
Вот так будет работать...
Function Screenshot()
aa=1
fold$=CurrentDir$()+"\screenshots"
dir=ReadDir(fold$)
Repeat
p$="screen"+aa+".bmp"
File$=NextFile$(dir)
If File$="" Then Exit
If FileType(fold$+"\"+File$)=1
aa=aa+1
EndIf
Forever
CloseDir dir
pp$="screenshots\"+"screen"+aa+".bmp"
SaveBuffer (BackBuffer(),pp$)
End Function
|