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 )