listing directories with redtamarin

gistfile1.as

import C.errno.*;
import C.dirent.*;

trace( "----" );

var dirp:DIR = opendir( "." );
if( !dirp )
{
    trace( "Could not open directory \".\"" );
}

//read the first entry
/*var dp:dirent = readdir( dirp );
if( !dp )
{
    trace( "Could not read directory entry" );
}
else
{
    trace( "directory entry:" );
    trace( "d_ino = " + dp.d_ino );
    trace( "d_name = " + dp.d_name );
}*/

//read all entries
var dp:dirent;
while( dp = readdir( dirp ) )
{
    trace( dp.d_name );
}

var result:int = closedir( dirp );
if( result < 0 )
{
    trace( "Error: " + errno );
}


trace( "----" );
trace( "bye bye program" );