Processing files using file mask

Dim file_name, string
Dim found, boolean
Dim attr, number
Dim read_only, boolean
Dim hidden, boolean
Dim system, boolean
Dim directory, boolean
Dim archived, boolean
Dim message, string
Dim new_line, string

// Start file search
FileFindFirst( "*.txt", file_name, found )

LoopWhile( found, ENDLOOP )
   // File found, do something with the file here
   // ...
   // For example we can get file attributes then display them
   FileGetAttr( file_name, attr )
   BitwiseGetBit( attr, 1, read_only )
   BitwiseGetBit( attr, 2, hidden )
   BitwiseGetBit( attr, 3, system )
   BitwiseGetBit( attr, 5, directory )
   BitwiseGetBit( attr, 6, archived )

   // Show nice message
   Char( 13, new_line )
   Concat( "File: ", file_name, message )
   Concat( message, new_line, message )
   Concat( message, " Read Only: ", message )
   Concat( message, read_only, message )
   Concat( message, new_line, message )
   Concat( message, " Hidden: ", message )
   Concat( message, hidden, message )
   Concat( message, new_line, message )
   Concat( message, " System: ", message )
   Concat( message, system, message )
   Concat( message, new_line, message )
   Concat( message, " Directory: ", message )
   Concat( message, directory, message )
   Concat( message, new_line, message )
   Concat( message, " Archived: ", message )
   Concat( message, archived, message )

   MessageBox( message )

   // Find next file
   FileFindNext( file_name, found )
ENDLOOP: