BrowseForFolder("Укажите папку, где искать:","")
seldir$=CBK_OpenDir
If (seldir$ <> '') Then
   ** Если папка пользователем указана, тогда:
   text$=' '
   LoadText("Text","text$")
   ** Показываем блокирующую область для предотвращения нажатий на кнопки:
   LoadText("Status","Выполняется поиск. Пожалуйста, ждите...")
   Show("lock")
   SearchForFiles("seldir$","EXT$")
   If (CBK_NumInList>0) Then
     ListBoxAddItem("SongList","RESET")
     ListBoxAddItem("SongList","<List>")
     ListBoxGetItems("SongList","Items$,Num$,#,Num")
     ListBoxAddItem("SongList","RESET")
     For i=1 To Num
       Items$[i]=GetArrayItem(Items$,#,i)
       ListBoxAddItem("SongList","STRING:Items[i]$")
       Refresh("")
     Next i
     ListBoxGetItems("SongList","<List>")
     ListBoxGetItems("SongList","Item$,NumItem$,#,NumItem")
   Else
     ListBoxAddItem("SongList","RESET")
     Num=0
   End
   ** Скрываем блокирующую область
   Hide("lock")
   Refresh("")
Else
   ** Если папка пользователем не выбрана - возврат:
   Return()
End
** Сбрасываем значение seldir$:
seldir$=''
** Выводим мессагу:
mess$='Поиск завершен.  '+CHR(10)+CHR(13)+'Всего найдено файлов: '+CHAR(Num)
Message("mess$","")
** Выводим текст:
SetObjectParam("Text","TEXTCOLOR=0,0,255")
text$='Всего найдено файлов: '+CHAR(Num)
If (Num=0) Then
   text$='Извините, по данному запросу ничего не найдено.'
End
LoadText("Text","text$")

ext$[1]=',tmp'
ext$[2]=',temp'
ext$[3]=',chk'
ext$[4]=',old'
ext$[5]=',gid'
ext$[6]=',wbk'
ext$[7]=',fts'
ext$[8]=',$$$'
ext$[9]=',err'
ext$[10]=',---'
ext$[11]=',??$'
ext$[12]=',$??'
ext$[13]=',?$?'
ext$[14]=',_mp'
ext$[15]=',dmp'
ext$[16]=',prv'
ext$[17]=',$db'
ext$[18]=',db$'
ext$[19]=',_dd'
ext$[20]=',___'
For e=1 To 20
   EXT$=EXT$+ext$[e]
Next e