Sorry your browser is not supported!

findFiles(".dba")

for c = 1 to array count(allFiles(0))
    print allFiles(c)
next c

print ""
print "Press any key to exit."

wait key
end


function findFiles(ext$)
    dim allFiles(0) as string
    perform checklist for files
    for c = 1 to checklist quantity()
        if right$(checklist string$(c), len(ext$)) = ext$
            array insert at bottom allFiles(0)
            allFiles(array count(allFiles(0))) = checklist string$(c)
        endif
    next c
endfunction

maxLines = screen height() / lineHeight // you have to calculate lineHeight - it depends on how you are displaying the list

topItem = 1

if downkey() and topItem + maxLines - 1 < array count(allFiles(0))

inc topItem

if array count(allFiles(0)) < topItem + maxLines - 1
    finalItem = array count(allFiles(0))
else
    finalItem = topItem + maxLines - 1
endif
for c = topItem to finalItem
    // display code goes here
    // file name for this item is in allFiles(c)
next c

	set dir "directory with files" (you only need to set this if you working in a different directory than the files you need are located)

	find first (this finds the first file)

	repeat
		filename$ = get file name$()

		`check that the file is a BMP, it checks BMP in lower case no matter what.
		if lower$(right$ (filename$,3)) = "bmp" (,3 tells the right$ command to look at the 3 last letters of the filename
 and they should be = "bmp". Change bmp to whatever you need to check for)


			inc current_array_spot
			`put the actual filename in the string array for filenames
			tiles_db_names$(current_array_spot) = "bitmaps\tiles\" + filename$ (this generates and store file names)

		endif

		find next (this will find the next file)

	until get file type() = -1 (this ensures that it the loop will keep looking for files until no more files are found)

`return to main directory
cd ".." (I use this to return to my working directory)
cd ".."
cd ".."

SYNC ON   <-----
sync rate 60   <-----

// your code did not dim so I do it here for now. 
dim tiles_db_names$(30)<-----


    //set dir "directory with files" `(you only need to set this if you working in a different directory than the files you need are located)

    find first `(this finds the first file)

    repeat
        filename$ = get file name$()

        `check that the file is a BMP, it checks BMP in lower case no matter what.
       ` if lower$(right$ (filename$,3)) = "bmp" <--- commenting this out makes it "work"

            inc current_array_spot
            `put the actual filename in the string array for filenames
            tiles_db_names$(current_array_spot) = "bitmaps\tiles\" + filename$ `(this generates and store file names)

     `   endif

        find next `(this will find the next file)

    until get file type() = -1 `(this ensures that it the loop will keep looking for files until no more files are found)

`return to main directory
cd ".." `(I use this to return to my working directory)
cd ".."
cd ".."


// a debug print to see what the array holds <-----
for a=1 to 30 <-----

print tiles_db_names$(a)    <-----
    
NEXT a <-----

SUSPEND FOR KEY <-----


end <-----

Rem Deny Bad Filenames
Function ValidateFileName(File$)
   StrLen = Len(File$)
   retFlag = 0

   For i = 1 to StrLen
      If Mid$(File$, i) = "." then retFlag = 1
   Next i

   If Mid$(File$, 1) = "." then retFlag = 0
   If Upper$(File$) = "THUMBS.DB" then retFlag = 0
EndFunction retFlag

Function ValidateBMP(file$)
    retVal = 0
    if lower$(right$ (file$,4)) = ".bmp" Then retVal = 1
EndFunction retVal

SYNC ON `   <-----
sync rate 60 `  <-----
sync ` I usually add this to initialise the double buffering

// your code did not dim so I do it here for now. 
dim tiles_db_names$(30) `<-----


    //set dir "directory with files" `(you only need to set this if you working in a different directory than the files you need are located)
set dir "media"
    find first `(this finds the first file)

    repeat
        filename$ = get file name$()

        `check that the file is a BMP, it checks BMP in lower case no matter what.
        if lower$(right$ (filename$,3)) = "bmp" `<--- commenting this out makes it "work"

            inc current_array_spot
            `put the actual filename in the string array for filenames
            tiles_db_names$(current_array_spot) = "bitmaps\tiles\" + filename$ `(this generates and store file names)

       endif

        find next `(this will find the next file)

    until get file type() = -1 `(this ensures that it the loop will keep looking for files until no more files are found)

`return to main directory
cd ".." `(I use this to return to my working directory)
cd ".."
cd ".."


// a debug print to see what the array holds <-----
for a=1 to 10 ` <-----

`print lower$(right$(tiles_db_names$(a), 3))+" printed"  `  <-----
print tiles_db_names$(a)+" printed"  `  <-----
    
NEXT a ` <-----
sync ` you usually need this when using "sync on"

SUSPEND FOR KEY ` <-----


end ` <-----

file$ = _open_save("Text File (*.txt)|*.txt|All Files (*.*)|*.*|",get dir$(),"Open File","*.*",1)

print file$

wait key
end




 
REM ***********************************
REM Prompts user with a save dialog box
REM Then attempts to save the file
REM ***********************************
function saveAsDialog()
    file$ = removeTrailingSpaces$(_open_save("Text File (*.txt)|*.txt|All Files (*.*)|*.*|",get dir$(),"Save File","*.*",0))
    if file$ <> "" and mid$(file$,1) <> "!" then saveFile(file$)
endfunction



 
REM ************************************
REM Prompts user with an open dialog box
REM Then attempts to open selected file
REM ************************************
function openDialog()
   file$ = removeTrailingSpaces$(_open_save("Text File (*.txt)|*.txt|All Files (*.*)|*.*|",get dir$(),"Open File","*.*",1))
   if mid$(file$,1) <> "!" then openFile(file$)
endfunction
 
 

REM ******************************************
REM removes trailing whitespaces from a string
REM ******************************************
function removeTrailingSpaces$(s as string)
   L = len(s)
   for i = L to 1 step -1
      if mid$(s,i) <> " " then exitfunction left$(s,i)
   next i
endfunction ""
 
REM ************************************
REM Save your file here
REM ************************************
function saveFile(filename as string)
endfunction

REM ************************************
REM Load your file here
REM ************************************
function openFile(filename as string)
endfunction

 
 
 
REM ********************************************************
REM *                                                      *
REM *                    Windows Dialogs                   *
REM *                                                      *
REM ********************************************************
 
 
Function _open_save(filter As String,initdir As String,dtitle As String,defext As String,open As Boolean)
   `filter = "Text Documents ( *.txt )|*.txt|All Files ( *.* )|*.*|"
   `initdir = "C:"
   `dtitle = "Open ~ Test"
   `defext = "txt"
   `open = 1 For Open Dialogu, 0 for save dialogue
 
 
   `Get DLL numbers
   user32 As Integer
   comdlg32 As Integer
 
   `Load in required DLL's
   user32 = _find_fee_dll()
   Load DLL "user32.dll",user32
   comdlg32 = _find_fee_dll()
   Load DLL "comdlg32.dll",comdlg32
 
 
   `Get handle ( unique ID ) to the calling ( this ) window
   hwnd As DWord
   hwnd = Call DLL(user32,"GetActiveWindow")
 
 
   `Unload DLL as it is no longer needed
   Delete DLL user32
 
 
   `Get the Memblock Number
   OPENFILENAME As Integer
   OPENFILENAME = _find_free_mem()
   `Make The Memblock containing the OPENFILENAME structure
   Make MemBlock OPENFILENAME,76
 
 
   `Get the pointer to the just created Structure
   lpofn As DWord
   lpofn = Get MemBlock Ptr(OPENFILENAME)
 
 
   `Declare temp variables to hold data for OPENFILENAME structure
   size As Integer
   filebuffer As String
   filebufferptr As DWord
   flags As DWord
 
   filter = filter + "|"
   initdir = initdir + "|"
   dtitle = dtitle + "|"
   defext = defext + "|"
   filebuffer = "|" + Space$(255) + "|"
   filebufferptr = _get_str_ptr(filebuffer)
   flags = 0x00001000 || 0x00000004 || 0x00000002
   size = 0
 
   Write MemBlock DWord OPENFILENAME,0,76                     : `lStructSize
   Write MemBlock DWord OPENFILENAME,4,hwnd                   : `hwndOwner
   `Write MemBlock DWord OPENFILENAME,8,NULL                   : `hInstance
   Write MemBlock DWord OPENFILENAME,12,_get_str_ptr(filter)  : `lpstrFilter
   `Write MemBlock DWord OPENFILENAME,16,0                     : `lpstrCustomFilter
   `Write MemBlock DWord OPENFILENAME,20,NULL                  : `nMaxCustFilter
   Write MemBlock DWord OPENFILENAME,24,1                     : `nFilterIndex
   Write MemBlock DWord OPENFILENAME,28,filebufferptr         : `lpstrFile
   Write MemBlock DWord OPENFILENAME,32,256                   : `nMaxFile
   `Write MemBlock DWord OPENFILENAME,36,0                     : `lpstrFileTitle
   `Write MemBlock DWord OPENFILENAME,40,NULL                  : `nMaxFileTitle
   Write MemBlock DWord OPENFILENAME,44,_get_str_ptr(initdir) : `lpstrInitialDir
   Write MemBlock DWord OPENFILENAME,48,_get_str_ptr(dtitle)  : `lpstrTitle
   Write MemBlock DWord OPENFILENAME,52,flags                 : `Flags
   `Write MemBlock Word OPENFILENAME,56,NULL                   : `nFileOffset
   `Write MemBlock Word OPENFILENAME,58,NULL                   : `nFileExtension
   Write MemBlock DWord OPENFILENAME,60,_get_str_ptr(defext)  : `lpstrDefExt
   `Write MemBlock DWord OPENFILENAME,64,NULL                  : `lCustData
   `Write MemBlock DWord OPENFILENAME,68,NULL                  : `lpfnHook
   `Write MemBlock DWord OPENFILENAME,72,0                     : `lpTemplateName
 
 
   `Call the Command to open the dialouge
   retval As DWord
   If open
      retval = Call DLL(comdlg32,"GetOpenFileNameA",lpofn)
   Else
      retval = Call DLL(comdlg32,"GetSaveFileNameA",lpofn)
   EndIf
 
   `Check if it was sucecfull
   If retval <> 0
      code$ = _get_str(filebufferptr,256)
   Else
      retval = Call DLL(comdlg32,"CommDlgExtendedError")
      Select retval
         Case 0xFFFF : code$ = "!The dialog box could not be created. The common dialog box function's call to the DialogBox function failed. For example, this error occurs if the common dialog box call specifies an invalid window handle." : EndCase
         Case 0x0006 : code$ = "!The common dialog box function failed to find a specified resource." : EndCase
         Case 0x0004 : code$ = "!The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding instance handle." : EndCase
         Case 0x0002 : code$ = "!The common dialog box function failed during initialization. This error often occurs when sufficient memory is not available." : EndCase
         Case 0x000B : code$ = "!The ENABLEHOOK flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a pointer to a corresponding hook procedure." : EndCase
         Case 0x0008 : code$ = "!The common dialog box function failed to lock a specified resource." : EndCase
         Case 0x0003 : code$ = "!The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding template." : EndCase
         Case 0x0007 : code$ = "!The common dialog box function failed to load a specified string." : EndCase
         Case 0x0001 : code$ = "!The lStructSize member of the initialization structure for the corresponding common dialog box is invalid." : EndCase
         Case 0x0005 : code$ = "!The common dialog box function failed to load a specified string." : EndCase
         Case 0x3003 : code$ = "!The buffer pointed to by the lpstrFile member of the OPENFILENAME structure is too small for the file name specified by the user. The first two bytes of the lpstrFile buffer contain an integer value specifying the size, in TCHARs, required to receive the full name." : EndCase
         Case 0x0009 : code$ = "!The common dialog box function was unable to allocate memory for internal structures." : EndCase
         Case 0x3002 : code$ = "!A file name is invalid." : EndCase
         Case 0x000A : code$ = "!The common dialog box function was unable to lock the memory associated with a handle." : EndCase
         Case 0x3001 : code$ = "!An attempt to subclass a list box failed because sufficient memory was not available." : EndCase
         Case Default : code$ = "!WHOOPS!" : EndCase
      EndSelect
   EndIF
 
   Delete DLL comdlg32
 
EndFunction code$
 
 
 
Function _get_str_ptr(pstr As String)
   `pstr$ should be a "|" ( NULL ) seperated string.
 
   memnum As Integer
   strlen As Integer
   char As Byte
   memptr As DWord
   strptr As DWord
 
   memnum = _find_free_mem()
   strlen = Len(pstr)
 
   Make MemBlock memnum,strlen
 
   For i = 1 To strlen
      If Mid$(pstr,i) = "|"
         char = 0
      Else
         char = Asc(Mid$(pstr,i))
      EndIf
      Write MemBlock Byte memnum,(i - 1),char
   Next i
 
   memptr = Get MemBlock Ptr(memnum)
 
   strptr = Make Memory(strlen)
 
   Copy Memory strptr,memptr,strlen
 
   Delete MemBlock memnum
 
 
EndFunction strptr
 
 
 
Function _get_str(strptr As DWord,strsize As Integer)
   `strptr is the pointer returned by _get_str_ptr()
   `strsize is the Integer length of the string specified by the pointer
 
   memnum As Integer
   memptr As DWord
   str As String
   char As String
 
   memnum = _find_free_mem()
 
   Make MemBlock memnum,strsize
 
   memptr = Get MemBlock Ptr(memnum)
 
   Copy Memory memptr,strptr,strsize
 
   For i = 1 To strsize
      str = str + Chr$(MemBlock Byte(memnum,i - 1))
   Next i
 
EndFunction str
 
 
 
Function _find_fee_dll()
   retval = 0
   Repeat
      Inc retval
   Until DLL Exist(retval) = 0
EndFunction retval
 
 
 
Function _find_free_mem()
   retval = 50
   Repeat
      Inc retval
   Until MemBlock Exist(retval) = 0
EndFunction retval