Search Selected Folder for Files Containing Specific Text

[xxgeek]

The following code allows the user to search for specified text in files, in a chosen folder.
Does not search sub folders.

1. Search for - specify some text using keyword(s)

2. in Files of Type - Specify a file type eg: txt bas html csv cmd ps1 - etc
If 'Files of Type textbox' is left empty, the search returns files with no extension (if any exist)
If a * is used in 'Files of Type textbox' the search returns ALL files containing the search word(s)

3. Select Folder
A folder can be selected by using the button, or manually entered in the 'Folder Selected" textbox

Once the folder is selected a list of the files in the selected folder containing the text provided will be presented. If an item in the list is clicked, the full text of the file appears in the text editor.

If no folder is selected, and no path exists in the 'Selected Folder' texbox when 'Search' is clicked - no search will be conducted. It just waits for another attempt.

Please report any issues found.
Enjoy!


'Search files in a selected folder for specific text
'by xxgeek Oct 2023
   global FolderDialog$, searchFor$
   dim listing$(10)
   dim info$(10,10)
   nomainwin
   WindowWidth = 800:WindowHeight = 600
   UpperLeftX= int((DisplayWidth-WindowWidth)/2)
   UpperLeftY= int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$ = "lightgray"
   ForegroundColor$ = "black"
   listbox #search.list, listing$(), [itemSelected], 5, 55, 285, 440
   texteditor #search.fileText, 290, 55, 490, 475
   statictext #search.for, "Search For", 35, 10, 70, 20
   textbox #search.searchFor, 110, 5, 285, 25
   statictext #search.filetype, " in Files of Type", 400, 10, 100, 20
   textbox #search.type, 505, 5, 60, 25
   button #search.folder, "Select Folder", [folder], ul, 575, 5, 100, 25
   button #search.search, "Search", [search], ul, 685, 5, 90, 25
   textbox #search.searchin, 110, 30, 670, 25
   statictext #search.selected, "Selected Folder", 5, 35, 105, 20
   statictext #search.found, "", 5, 500, 280, 50
   open "Search" for window as #search
   #search "trapclose [quit]"
   #search "font arial 10 bold"
   #search.list "singleclickselect"
   #search.fileText, "!autoresize"
   #search.searchFor "!setfocus"
   wait

[itemSelected]
   #search.list "selection? filePath$"
   open FolderDialog$;"\";filePath$ for input as #1
   #search.fileText, "!contents #1";
   close #1
   #search.fileText "!origin 0 0"
   wait

[folder]
   #search.searchin ""
   #search.searchFor "!contents? searchFor$"
   caption$ = "   Select a Folder to Search - for Files Containing";chr$(13);" ' ";searchFor$;" '"
   call browser caption$
   #search.searchin FolderDialog$
[search]
   #search.searchin "!contents? FolderDialog$"
   if FolderDialog$ = "" then wait
   cursor hourglass
   #search.fileText, "!cls"
   found = 0
   redim info$(10,10)
   #search.searchFor "!contents? searchFor$"
   #search.type "!contents? fileType$"
   files FolderDialog$, "*.";fileType$, info$()
   numFiles = val(info$(0,0))
   redim listing$(numFiles+1)
   for i = 1 to numFiles
       fileToOpen$ = info$(i, 0)
       open FolderDialog$;"\";fileToOpen$ for input as #2
       contents$ = input$(#2, lof(#2))
       close #2
       if instr(lower$(contents$), lower$(searchFor$)) then
           found = found +1
           listing$(found) = fileToOpen$
       end if
   next i
   #search.list "reload"
   if fileType$ = "" then fileType$ = "'no .ext'"
   #search.found  "Number of .";fileType$;" Files Found Containing ";chr$(13);" '";searchFor$;"'   =   ";found
   cursor normal
   wait

[quit]
   close #search
   end

'sub to make folder dialog window
sub browser caption$
   dim info$(0, 0)
   dim folderInfo$(0, 0)
   WindowWidth = 700
   WindowHeight = 500
   UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
   UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
   gosub [FolderDlgGetDrives]
   statictext #folderdlg.selection, "Selection >> ", 40, 505, 95, 15
   statictext #folderdlg.caption, caption$, 150, 20, 525, 45
   listbox #folderdlg.filelist, fileList$(, [fileSelected], 350, 70, 330, 290
   listbox #folderdlg.list, FolderList$(, [FolderDlgSelect], 10, 70, 330, 290
   button #folderdlg.default, "OK", [FolderDlgOk], UL, 220, 410, 75, 25
   button #folderdlg.back, "< < <", [FolderDlgBack], UL, 10, 10, 60, 30
   button #folderdlg.C, "Cancel", [FolderDlgCancel], UL, 395, 410, 75, 25
   button #folderdlg.plusfont, "+", [plusFont], UL, 75, 10, 30, 30
   button #folderdlg.minusfont, "-", [minusFont], UL, 110, 10, 30, 30
   textbox #folderdlg.text, 10, 370, 670, 25
   BackgroundColor$ = "lightgray"
   open "Just Basic v2.0 File Browser" for dialog_modal as #folderdlg
   #folderdlg, "trapclose [FolderDlgCancel]"
   #folderdlg.text, "Selected     (Drive \ Folder \ File)     Path  Appears  Here"
   #folderdlg, "font Arial 12 bold"
   #folderdlg.filelist, "singleclickselect"
   #folderdlg.list, "singleclickselect"
   fontsize = 12
   wait

[minusFont]
   fontsize = fontsize - 1
   #folderdlg.list, "font arial ";fontsize;" bold"
   #folderdlg.filelist, "font arial ";fontsize;" bold"
   wait

[plusFont]
   fontsize = fontsize + 1
   #folderdlg.list, "font arial ";fontsize;" bold"
   #folderdlg.filelist, "font arial ";fontsize;" bold"
   wait

[FolderDlgSelect]
   #folderdlg.list, "selection? temp$"
   if temp$ <> "" then
       level = level+1
       folder$ = folder$; temp$; "\"
       #folderdlg.text, folder$
       gosub [FolderDlgGetDir]
       #folderdlg.list, "reload"
       #folderdlg.list, "select 0"
       #folderdlg.default "!setfocus"
   end if
   wait

[FolderDlgBack]
   if level > 0 then
       level = level-1
       if level = 0 then
           folder$ = ""
           gosub [FolderDlgGetDrives]
       else
           i = len(folder$)-1
           while mid$(folder$, i, 1) <> "\" and mid$(folder$, i, 1) <> ""
               i = i-1
           wend
           folder$ = left$(folder$, i)
           gosub [FolderDlgGetDir]
       end if
       #folderdlg.text, folder$
       fileList$(0) = "                          F  I  L  E  S"
       #folderdlg.list, "reload"
       #folderdlg.filelist, "reload"
   end if
   wait

[FolderDlgGetDrives]
   c = 1
   while word$(Drives$, c) <> ""
       c = c+1
   wend
   redim FolderList$(c)
   FolderList$(0) = "                       D  R  I  V  E  S"
   for i = 1 to c
       FolderList$(i) = word$(Drives$, i)
   next i
   redim fileList$(0)
   return

[FolderDlgGetDir]
   files folder$, info$(
   s = val(info$(0,0))
   tt = val(info$(0,1))
   redim FolderList$(tt)
   FolderList$(0) = "                       F  O  L  D  E  R  S"
   for i = 1 to tt
       FolderList$(i) = info$(i+s, 1)
   next i

[filesBack]
   files folder$, "*.*", folderInfo$()
   numFiles = val(folderInfo$(0, 0))
   redim fileList$(numFiles)
   for x = 1 to numFiles
       filename$ = folderInfo$(x, 0)
       fileList$(x) = filename$
   next x
   fileList$(0) = "                          F  I  L  E  S"
   sort fileList$(), 0 , numFiles
   #folderdlg.filelist, "reload"
   return

[FolderDlgOk]
   #folderdlg.text, "!contents? FolderDialog$"
   If right$(FolderDialog$,1) = "\" then
       if right$(FolderDialog$, 2) = ":\" then [goAround]
       FolderDialog$ = left$(FolderDialog$, len(FolderDialog$) - 1)
   else
   [fileSelected]
       notice chr$(13);"The Selection is Not a Drive or a Folder";chr$(13);chr$(13);"Select a Drive or a Folder and Try Again" : wait
[goAround]
   end if

[FolderDlgCancel]
   close #folderdlg
end sub

[Enzo]

I've seen this feature before in a user made IDE 'codeachrome' I believe was the name, a lot of your coding posts have similar features this IDE had; Alyce's Coding Restaurant, not sure if download will still work?

[xxgeek]

Oct 22, 2023 16:09:58 GMT Enzo said:

I've seen this feature before in a user made IDE 'codeachrome' I believe was the name, a lot of your coding posts have similar features this IDE had; Alyce's Coding Restaurant, not sure if download will still work?

Codeachrome was written for Liberty Basic, and calls a dll file for assistance.
Therefore it won't work in JB IDE.

Much of the code I write work with files, same with Alyce.
The FolderDialog in this code is an adaptation of the JB function 'FolderDialog' edited to show files, and folders.

The above code was written to find specific text in files, where as the following code does the same, plus adds a listbox for all the files in the selected folder with the same extension that DO NOT contain the specified text.


'Search files in a selected folder for specific text
'by xxgeek Oct 2023
   global FolderDialog$, searchFor$
   dim listing$(10)
   dim blisting$(10)
   dim info$(10,10)
   nomainwin
   WindowWidth = 800:WindowHeight = 600
   UpperLeftX= int((DisplayWidth-WindowWidth)/2)
   UpperLeftY= int((DisplayHeight-WindowHeight)/2)
   BackgroundColor$ = "lightgray"
   ForegroundColor$ = "black"
   listbox #search.list, listing$(), [itemSelected], 5, 95, 285, 200
   listbox #search.blist, blisting$(), [itembSelected], 5, 330, 285, 200
   texteditor #search.fileText, 290, 55, 490, 475
   statictext #search.for, "Search For", 35, 10, 70, 20
   textbox #search.searchFor, 110, 5, 285, 25
   statictext #search.filetype, " in Files of Type", 400, 10, 100, 20
   textbox #search.type, 505, 5, 60, 25
   button #search.folder, "Select Folder", [folder], ul, 575, 5, 100, 25
   button #search.search, "Search", [search], ul, 685, 5, 90, 25
   textbox #search.searchin, 110, 30, 670, 25
   statictext #search.selected, "Selected Folder", 5, 35, 105, 20
   statictext #search.found, "", 5, 65, 280, 50
   statictext #search.foundb, "", 5, 295, 280, 50
   open "Search" for window as #search
   #search "trapclose [quit]"
   #search "font arial 10 bold"
   #search.list "singleclickselect"
   #search.blist "singleclickselect"
   #search.fileText, "!autoresize"
   #search.searchFor "!setfocus"
   wait

[itemSelected]
   #search.fileText, "!cls"
   #search.list "selection? filePath$"
   open FolderDialog$;"\";filePath$ for input as #1
   #search.fileText, "!contents #1"
   close #1
   #search.fileText "!origin 0 0"
   #search.blist "select 0"
   wait

[itembSelected]
   #search.fileText, "!cls"
   #search.blist "selection? filePath$"
   open FolderDialog$;"\";filePath$ for input as #1
   #search.fileText, "!contents #1"
   close #1
   #search.fileText "!origin 0 0"
   #search.list "select 0"
   wait

[folder]
   #search.searchin ""
   #search.searchFor "!contents? searchFor$"
   caption$ = "   Select a Folder to Search - for Files Containing";chr$(13);" ' ";searchFor$;" '"
   call browser caption$
   #search.searchin FolderDialog$
[search]
   #search.searchin "!contents? FolderDialog$"
   if FolderDialog$ = "" then wait
   cursor hourglass
   #search.fileText, "!cls"
   found = 0 : b = 0
   redim info$(10,10)
   #search.searchFor "!contents? searchFor$"
   #search.type "!contents? fileType$"
   files FolderDialog$, "*.";fileType$, info$()
   numFiles = val(info$(0,0))
   redim listing$(numFiles+1)
   redim blisting$(numFiles+1)
   for i = 1 to numFiles
       fileToOpen$ = info$(i, 0)
       open FolderDialog$;"\";fileToOpen$ for input as #2
       contents$ = input$(#2, lof(#2))
       close #2
       if instr(lower$(contents$), lower$(searchFor$)) then
           found = found +1
           listing$(found) = fileToOpen$
       else
          b = b + 1
          blisting$(b) = fileToOpen$
       end if
   next i
   #search.list "reload"
   #search.blist "reload"
   if fileType$ = "" then fileType$ = "'no .ext'"
   #search.found "Number of .";fileType$;" Files Found Containing ";chr$(13);" '";searchFor$;"'   =   ";found
   #search.foundb "Number of .";fileType$;" Files NOT Containing ";chr$(13);" '";searchFor$;"'   =   ";b
   cursor normal
   wait

[quit]
   close #search
   end

'sub to make folder dialog window
sub browser caption$
   dim info$(0, 0)
   dim folderInfo$(0, 0)
   WindowWidth = 700
   WindowHeight = 500
   UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
   UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
   gosub [FolderDlgGetDrives]
   statictext #folderdlg.selection, "Selection >> ", 40, 505, 95, 15
   statictext #folderdlg.caption, caption$, 150, 20, 525, 45
   listbox #folderdlg.filelist, fileList$(, [fileSelected], 350, 70, 330, 290
   listbox #folderdlg.list, FolderList$(, [FolderDlgSelect], 10, 70, 330, 290
   button #folderdlg.default, "OK", [FolderDlgOk], UL, 220, 410, 75, 25
   button #folderdlg.back, "< < <", [FolderDlgBack], UL, 10, 10, 60, 30
   button #folderdlg.C, "Cancel", [FolderDlgCancel], UL, 395, 410, 75, 25
   button #folderdlg.plusfont, "+", [plusFont], UL, 75, 10, 30, 30
   button #folderdlg.minusfont, "-", [minusFont], UL, 110, 10, 30, 30
   textbox #folderdlg.text, 10, 370, 670, 25
   BackgroundColor$ = "lightgray"
   open "Just Basic v2.0 File Browser" for dialog_modal as #folderdlg
   #folderdlg, "trapclose [FolderDlgCancel]"
   #folderdlg.text, "Selected     (Drive \ Folder \ File)     Path  Appears  Here"
   #folderdlg, "font Arial 12 bold"
   #folderdlg.filelist, "singleclickselect"
   #folderdlg.list, "singleclickselect"
   fontsize = 12
   wait

[minusFont]
   fontsize = fontsize - 1
   #folderdlg.list, "font arial ";fontsize;" bold"
   #folderdlg.filelist, "font arial ";fontsize;" bold"
   wait

[plusFont]
   fontsize = fontsize + 1
   #folderdlg.list, "font arial ";fontsize;" bold"
   #folderdlg.filelist, "font arial ";fontsize;" bold"
   wait

[FolderDlgSelect]
   #folderdlg.list, "selection? temp$"
   if temp$ <> "" then
       level = level+1
       folder$ = folder$; temp$; "\"
       #folderdlg.text, folder$
       gosub [FolderDlgGetDir]
       #folderdlg.list, "reload"
       #folderdlg.list, "select 0"
       #folderdlg.default "!setfocus"
   end if
   wait

[FolderDlgBack]
   if level > 0 then
       level = level-1
       if level = 0 then
           folder$ = ""
           gosub [FolderDlgGetDrives]
       else
           i = len(folder$)-1
           while mid$(folder$, i, 1) <> "\" and mid$(folder$, i, 1) <> ""
               i = i-1
           wend
           folder$ = left$(folder$, i)
           gosub [FolderDlgGetDir]
       end if
       #folderdlg.text, folder$
       fileList$(0) = "                          F  I  L  E  S"
       #folderdlg.list, "reload"
       #folderdlg.filelist, "reload"
   end if
   wait

[FolderDlgGetDrives]
   c = 1
   while word$(Drives$, c) <> ""
       c = c+1
   wend
   redim FolderList$(c)
   FolderList$(0) = "                       D  R  I  V  E  S"
   for i = 1 to c
       FolderList$(i) = word$(Drives$, i)
   next i
   redim fileList$(0)
   return

[FolderDlgGetDir]
   files folder$, info$(
   s = val(info$(0,0))
   tt = val(info$(0,1))
   redim FolderList$(tt)
   FolderList$(0) = "                       F  O  L  D  E  R  S"
   for i = 1 to tt
       FolderList$(i) = info$(i+s, 1)
   next i

[filesBack]
   files folder$, "*.*", folderInfo$()
   numFiles = val(folderInfo$(0, 0))
   redim fileList$(numFiles)
   for x = 1 to numFiles
       filename$ = folderInfo$(x, 0)
       fileList$(x) = filename$
   next x
   fileList$(0) = "                          F  I  L  E  S"
   sort fileList$(), 0 , numFiles
   #folderdlg.filelist, "reload"
   return

[FolderDlgOk]
   #folderdlg.text, "!contents? FolderDialog$"
   If right$(FolderDialog$,1) = "\" then
       if right$(FolderDialog$, 2) = ":\" then [goAround]
       FolderDialog$ = left$(FolderDialog$, len(FolderDialog$) - 1)
   else
   [fileSelected]
       notice chr$(13);"The Selection is Not a Drive or a Folder";chr$(13);chr$(13);"Select a Drive or a Folder and Try Again" : wait
[goAround]
   end if

[FolderDlgCancel]
   close #folderdlg
end sub

[xxgeek]

Made a few changes to help narrow the search, and changed the layout a little bit.

-new checkbox if selected
"Isolate" - isolates the search word between spaces to ensure ONLY whole words are accepted by the search.
eg:
If a search is made for "ide" a word like "provide" will be ignored in the search, and only " ide " and " IDE " will be seen.
Or if
eg:
"scan" is searched for, a word like scanner will be ignored, and ONLY a full isolated word " scan "or ' SCAN ' will be seen (notice the spaces).

When one of the 'found' files is clicked on in the resulting list the text in the file is displayed in the texteditor.

Then the first instance of the 'search word' is highlighted.
Pressing 'Cntrl + G' at the same time will scroll to the next instance of 'search word' in the text.

Also made some changes to the layout of the window.


   'Search files in a selected folder for specific text
   'by xxgeek Nov 2023
   'includes an edited 'Folderdialog' function from the JB Functions
   global FolderDialog$, searchFor$
   dim listing$(10)
   dim blisting$(10)
   dim info$(10,10)
   nomainwin
   WindowWidth = 800
   WindowHeight = 600
   BackgroundColor$ = "lightgray"
   ForegroundColor$ = "black"
   listbox #search.list, listing$(), [itemSelected], 5, 55, 285, 200
   listbox #search.blist, blisting$(), [itembSelected], 5, 295, 285, 200
   texteditor #search.fileText, 290, 95, 490, 440
   statictext #search.numLines, "Ctrl + G for Next", 650, 75, 150, 20
   statictext #search.numFound, "Number of Lines Found With ' Search Word '", 295, 55, 500, 20
   checkbox #search.isolate, "Isolate", [isolate], [noisolate], 295, 75, 60, 15
   statictext #search.isolText, "' Search Word '", 360, 75, 150, 20
   button #search.lessfont, "+", [moreFont], UL, 525, 75, 20, 20
   button #search.morefont, "-", [lessFont], UL, 555, 75, 20, 20
   statictext #search.for, "Search For", 180, 10, 70, 20
   textbox #search.searchFor, 255, 5, 340, 25
   statictext #search.filetype, " in Files of Type", 600, 10, 100, 20
   textbox #search.type, 705, 5, 60, 25
   button #search.folder, "Select Folder", [folder], ul, 70, 5, 95, 25
   button #search.search, "Search", [search], ul, 5, 5, 55, 25
   textbox #search.searchin, 110, 30, 670, 25
   statictext #search.selected, "Selected Folder", 5, 37, 105, 15
   statictext #search.found, "Files Found With ' search word '", 5, 255, 280, 35
   statictext #search.foundb, "Files Found Without ' search word '", 5, 500, 280, 35
   open "Search for Text in Files" for window as #search
   #search "trapclose [quit]"
   #search "font arial 10 bold"
'fileType textbox can be changed to start with any extension eg: txt, cmd, ps1, bat, etc
'and can be changed at will when running the program
   #search.type "bas"
   #search.list "singleclickselect"
   #search.blist "singleclickselect"
   #search.fileText, "!autoresize"
   #search.searchFor "!setfocus"
   fontsize = 10
   wait

[itemSelected]
   #search.isolate "show"
   #search.isolText "!show"
   numTimes = 0 : numSpaces = 0 : numLines = 0
   cursor hourglass
   #search.numFound ""
   #search.numLines ""
   #search.searchFor "!contents? changed$";
   if changed$ <> searchFor$ then
       #search.searchFor "!contents? searchFor$"
   end if
   if isolate = 1 then searchFor$ = " ";searchFor$;" "
   #search.fileText, "!cls"
   #search.list "selection? filePath$"
   open FolderDialog$;"\";filePath$ for input as #1
   #search.fileText, "!contents #1"
   close #1
   open FolderDialog$;"\";filePath$ for input as #1
   while eof(#1) = 0
       line input #1, textLine$
       if textLine$ = "" then numSpaces = numSpaces + 1 else numLines=numLines+1
       if instr(lower$(textLine$), lower$(searchFor$)) then numTimes = numTimes + 1
   wend
   close #1
   #search.blist "select 0"
   #search.fileText "!lines lineCount";
   #search.numLines "Ctrl + G for Next '";searchFor$;"'"
   #search.numFound numTimes;" Lines with ' ";searchFor$;" '      ";numLines-numSpaces;" Text | ";numSpaces;" Empty  > Total ";numLines;" Lines"
   cursor normal
   #search.fileText, "!find searchFor$"
   wait

[itembSelected]
   #search.isolate "hide"
   #search.isolText "!hide"
   itemb=1 : numTimes = 0 : numSpaces = 0 : numLines = 0
   #search.numFound ""
   #search.numLines ""
   #search.fileText, "!cls"
   #search.blist "selection? filePath$"
   open FolderDialog$;"\";filePath$ for input as #1
   #search.fileText, "!contents #1"
   close #1
   open FolderDialog$;"\";filePath$ for input as #1
   while eof(#1) = 0
       line input #1, textLine$
       if textLine$ = "" then numSpaces = numSpaces + 1
       numLines=numLines+1
   wend
   close #1
   #search.fileText "!origin 0 0"
   #search.list "select 0"
   #search.fileText "!lines lineCount";
   #search.numFound lineCount-numSpaces;" Lines of Text + ";numSpaces;" Empty Lines of a Total of ";lineCount;" Lines"
   wait

[isolate]
   'isolating the search word places a space before and after the search word
   isolate = 1
   #search.searchFor "!contents? searchFor$"
   #search.isolText "' ";searchFor$;" '"
   searchFor$ = " ";searchFor$;" "
   #search.list, "select 0"
   wait

[noisolate]
   isolate = 0
   #search.searchFor "!contents? searchFor$"
   #search.isolText "' Search Word '"
   #search.list, "select 0"
   wait

[folder]
   #search.searchin ""
   #search.searchFor "!contents? searchFor$"
   caption$ = "   Select a Folder to Search - for Files Containing";chr$(13);" ' ";searchFor$;" '"
   call browser caption$
   #search.searchin FolderDialog$
[search]
   #search.numFound ""
   #search.numLines ""
   #search.searchin "!contents? FolderDialog$"
   if FolderDialog$ = "" then wait
   call pleasewait
   cursor hourglass
   #search.fileText, "!cls"
   found = 0 : b = 0
   redim info$(10,10)
   #search.searchFor "!contents? searchFor$"
   if isolate=1 then searchFor$ = " ";searchFor$;" "
   #search.type "!contents? fileType$"
   files FolderDialog$, "*.";fileType$, info$()
   numFiles = val(info$(0,0))
   redim listing$(numFiles)
   redim blisting$(numFiles)
   for i = 1 to numFiles
       fileToOpen$ = info$(i, 0)
       open FolderDialog$;"\";fileToOpen$ for input as #2
       contents$ = input$(#2, lof(#2))
       close #2
       if kase = 0 then
           if instr(lower$(contents$), lower$(searchFor$)) then
               found = found +1
               listing$(found) = fileToOpen$
           else
               b = b + 1
               blisting$(b) = fileToOpen$
           end if
       end if
       if kase = 1 then
           if instr(contents$, searchFor$) then
               found = found +1
               listing$(found) = fileToOpen$
           else
               b = b + 1
               blisting$(b) = fileToOpen$
           end if
       end if
   next i
   #search.list "reload"
   #search.blist "reload"
   if fileType$ = "" then fileType$ = "'no .ext'"
   #search.found "Number of .";fileType$;" Files Found Containing ";chr$(13);" '";searchFor$;"'   =   ";found;" of ";found + b
   #search.foundb "Number of .";fileType$;" Files NOT Containing ";chr$(13);" '";searchFor$;"'   =   ";b;" of ";found + b
   cursor normal
   close #pleasewait
   wait

[lessFont]
   fontsize = fontsize - 1
   #search.list "font arial ";fontsize;" bold"
   #search.blist "font arial ";fontsize;" bold"
   #search.fileText "!font arial ";fontsize;" bold"
   wait

[moreFont]
   fontsize = fontsize + 1
   #search.list "font arial ";fontsize;" bold"
   #search.blist "font arial ";fontsize;" bold"
   #search.fileText "!font arial ";fontsize;" bold"
   wait

[quit]
   close #search
   end

   'sub to make folder dialog window
sub browser caption$
   dim info$(0, 0)
   dim folderInfo$(0, 0)
   WindowWidth = 700
   WindowHeight = 500
   UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
   UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
   gosub [FolderDlgGetDrives]
   statictext #folderdlg.selection, "Selection >> ", 40, 505, 95, 15
   statictext #folderdlg.caption, caption$, 150, 20, 525, 45
   listbox #folderdlg.filelist, fileList$(, [fileSelected], 350, 70, 330, 290
   listbox #folderdlg.list, FolderList$(, [FolderDlgSelect], 10, 70, 330, 290
   button #folderdlg.default, "OK", [FolderDlgOk], UL, 220, 410, 75, 25
   button #folderdlg.back, "< < <", [FolderDlgBack], UL, 10, 10, 60, 30
   button #folderdlg.C, "Cancel", [FolderDlgCancel], UL, 395, 410, 75, 25
   button #folderdlg.plusfont, "+", [plusFont], UL, 75, 10, 30, 30
   button #folderdlg.minusfont, "-", [minusFont], UL, 110, 10, 30, 30
   textbox #folderdlg.text, 10, 370, 670, 25
   BackgroundColor$ = "lightgray"
   open "Just Basic v2.0 File Browser" for dialog_modal as #folderdlg
   #folderdlg, "trapclose [FolderDlgCancel]"
   #folderdlg.text, "Selected     (Drive \ Folder \ File)     Path  Appears  Here"
   #folderdlg, "font Arial 12 bold"
   #folderdlg.filelist, "singleclickselect"
   #folderdlg.list, "singleclickselect"
   fontsize = 12
   wait

[minusFont]
   fontsize = fontsize - 1
   #folderdlg.list, "font arial ";fontsize;" bold"
   #folderdlg.filelist, "font arial ";fontsize;" bold"
   wait

[plusFont]
   fontsize = fontsize + 1
   #folderdlg.list, "font arial ";fontsize;" bold"
   #folderdlg.filelist, "font arial ";fontsize;" bold"
   wait

[FolderDlgSelect]
   #folderdlg.list, "selection? temp$"
   if temp$ <> "" then
       level = level+1
       folder$ = folder$; temp$; "\"
       #folderdlg.text, folder$
       gosub [FolderDlgGetDir]
       #folderdlg.list, "reload"
       #folderdlg.list, "select 0"
       #folderdlg.default "!setfocus"
   end if
   wait

[FolderDlgBack]
   if level > 0 then
       level = level-1
       if level = 0 then
           folder$ = ""
           gosub [FolderDlgGetDrives]
       else
           i = len(folder$)-1
           while mid$(folder$, i, 1) <> "\" and mid$(folder$, i, 1) <> ""
               i = i-1
           wend
           folder$ = left$(folder$, i)
           gosub [FolderDlgGetDir]
       end if
       #folderdlg.text, folder$
       fileList$(0) = "                          F  I  L  E  S"
       #folderdlg.list, "reload"
       #folderdlg.filelist, "reload"
   end if
   wait

[FolderDlgGetDrives]
   c = 1
   while word$(Drives$, c) <> ""
       c = c+1
   wend
   redim FolderList$(c)
   FolderList$(0) = "                       D  R  I  V  E  S"
   for i = 1 to c
       FolderList$(i) = word$(Drives$, i)
   next i
   redim fileList$(0)
   return

[FolderDlgGetDir]
   files folder$, info$(
   s = val(info$(0,0))
   tt = val(info$(0,1))
   redim FolderList$(tt)
   FolderList$(0) = "                       F  O  L  D  E  R  S"
   for i = 1 to tt
       FolderList$(i) = info$(i+s, 1)
   next i

[filesBack]
   files folder$, "*.*", folderInfo$()
   numFiles = val(folderInfo$(0, 0))
   redim fileList$(numFiles)
   for x = 1 to numFiles
       filename$ = folderInfo$(x, 0)
       fileList$(x) = filename$
   next x
   fileList$(0) = "                          F  I  L  E  S"
   sort fileList$(), 0 , numFiles
   #folderdlg.filelist, "reload"
   return

[FolderDlgOk]
   #folderdlg.text, "!contents? FolderDialog$"
   If right$(FolderDialog$,1) = "\" then
       if right$(FolderDialog$, 2) = ":\" then [goAround]
       FolderDialog$ = left$(FolderDialog$, len(FolderDialog$) - 1)
   else
[fileSelected]
       notice chr$(13);"The Selection is Not a Drive or a Folder";chr$(13);chr$(13);"Select a Drive or a Folder and Try Again" : wait
[goAround]
   end if

[FolderDlgCancel]
   close #folderdlg
end sub

sub pleasewait
   WindowWidth = 170 : WindowHeight = 230
   UpperLeftX=int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=int((DisplayHeight-WindowHeight)/2)
   statictext #pleasewait.text, "Please Wait", 35, 20, 100, 20
   statictext #pleasewait.text2, "While a Search", 20, 50, 120, 20
   statictext #pleasewait.text3, "For All Files", 30, 80, 140, 20
   statictext #pleasewait.text4, "Containing", 40, 110, 160, 20
   statictext #pleasewait.text5, " ' ";searchFor$;" '", 25, 140, 160, 20
   statictext #pleasewait.text6, "Completes", 40, 170, 110, 20
   button #pleasewait.fake, "", [quit.pleasewait], ul, 0, 0, 0, 0
   Open "pleaseWait" for dialog_popup as #pleasewait
   #pleasewait "trapclose [quit.pleasewait]"
   #pleasewait "font arial 12 bold"
end sub