Функция Скриншот.
 

Здравствуйте! Помогите пожалуйста начинающему програмисту)
У меня есть функция Скриншота:

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
If p$=File$ aa=aa+1
EndIf
Forever
CloseDir dir
pp$="screenshots\"+"screen"+aa+".bmp"


SaveBuffer (BackBuffer(),pp$)
End Function

Активирую я это
If KeyHit(68) ScreenShot()

Проблеммы:
Скриншоты сохраняются максимум до 10.. Если в папке 10 скринов дальше не сохраняет.. Ещё я хотел бы чтобы при активации скриншота выводилась надпись и висела примерно 3 сек. Помогите пожалуйста. Заранее Спасибо большое за Ваш ответ.

Ответ: Функция Скриншот.
 

Вот так будет работать...

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

Ответ: Функция Скриншот.
 

Гы-гы..
я эту функцЫйу писал еще в 2004 году...
даже имена переменных не поменяли...