Короче я нашёл то, что мне надо (это проект AS-MASTER'а) Поиск временных файлов.
Только как сделать чтобы он искал ещё и в подпапках.
Вот так он ищет только в той папке которую я выбрал, но те папки которые
внутри этой папки которую я выбрал он их игнорирует:
Code
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$")