/*
        Example that shows how to get all the .scntoc files in the 
        current project
*/
var strTestFolder = XSIUtils.BuildPath( Application.InstallationPath( siProjectPath ), "Scenes" ) ;
/*
        This regular expression matches any string
        that ends with ".scntoc". This is the same
        as the command-line wildcard "*.scntoc".
*/
var regularExpressionToMatch = ".*\.scntoc$" ;
var aTocFiles = FindFilesInFolder( 
                        strTestFolder, 
                        regularExpressionToMatch, 
                        true,                   // Find all matches
                        false ) ;               // Return file name only
                                        
                                
strMsg = "\nFound the following .scntoc files in " + strTestFolder + "\n" ;
        
for ( var i = 0 ; i < aTocFiles.length ; i++ )
{
        strMsg += aTocFiles[i] + "\n" ;
}
Application.LogMessage( strMsg ) ;

'
'       Example that shows how to get the list of .scntoc files
'
'in a folder.
dim strTestFolder, strTocFiles, strMsg, aTocFiles, regularExpressionToMatch
strTestFolder = XSIUtils.BuildPath( Application.InstallationPath( siProjectPath ),"Scenes" ) 
' This regular expression matches any string
' that ends with ".scntoc". This is the same
' as the command-line wildcard "*.scntoc".
regularExpressionToMatch = ".*\.scntoc$" 
'The command returns a JScript array, which appears as a 
'comma-delimited string in VBScript
strTocFiles = FindFilesInFolder( _
                        strTestFolder, _
                        regularExpressionToMatch, _
                        true,            _      
                        false )
'It is easy to convert it to a VBScript array
aTocFiles = split( strTocFiles, "," )
                                                                        
strMsg = vbCrLf & "Found the following .scntoc files in " & strTestFolder & vbCrLf  
for i = 0 to Ubound( aTocFiles )
        strMsg = strMsg & aTocFiles(i) & vbCrLf 
next
Application.LogMessage strMsg

/*
        This example shows how the FindFilesInFolder command could
        be implemented in JScript as a self-installed custom command.  
        The custom command uses the FileSystemObject class and
        JScript Regular Expression support
*/
function XSILoadPlugin( in_reg )
{
        in_reg.Author = "Softimage SDK";
        in_reg.Name = "FindFilesInFolderExample";
        in_reg.Major = 1;
        in_reg.Minor = 0;
        in_reg.RegisterCommand("FindFilesInFolder","FindFilesInFolder");
        return true;
}
function FindFilesInFolder_Init( ctxt )
{
        var oCmd = ctxt.Source;
        oCmd.Description = "Search for files with a particular pattern in a directory";
        oCmd.SetFlag(siNoLogging,true);
        oCmd.ReturnValue = true;
        var oArgs = oCmd.Arguments;
        oArgs.Add("Directory",siArgumentInput,"", siString);    
        oArgs.Add("RegularExpression",siArgumentInput,".*", siString);
        oArgs.Add("FindAllMatches",siArgumentInput, false, siBool );
        oArgs.Add("ReturnFullPath",siArgumentInput, true, siBool );     
        return true;
}
function FindFilesInFolder_Execute
( 
        in_Directory,
        in_RegularExpression,
        in_FindAllMatches,
        in_ReturnFullPath 
)
{
        var strFlags = "" ;
        if ( !XSIUtils.IsFileSystemCaseSensitive() )
                strFlags = "i" ; // Case-insensitive filesystem
        var oRegExp = new RegExp( in_RegularExpression, strFlags ) ;
        var oFSO = new ActiveXObject( "Scripting.FileSystemObject" ) ;          
        var oFolder = oFSO.GetFolder( in_Directory ) ;                          
        var aResults = new Array() ;
        
        enumFiles = new Enumerator(oFolder.files);
        for (; !enumFiles.atEnd(); enumFiles.moveNext())
        {
                var oFile = enumFiles.item();
                strName = oFile.Name ;
                        
                if ( 0 == strName.search( oRegExp ) )
                {
                        if ( in_ReturnFullPath )
                                strMatch = XSIUtils.BuildPath( in_Directory, oFile.Name ) ;
                        else
                                strMatch = oFile.Name ;
                        
                        if ( in_FindAllMatches )
                                aResults.push( strMatch ) ;
                        else
                                return strMatch ;                       
                }
        }       
        
        
        if ( in_FindAllMatches )
                return aResults ;
        else    
                return "" ; // No Matches                       
}
// Add a push method to the JScript Array Object
// (Array.Push was added in Jscript 5.5 but we cannot rely on this)
// @cc_on
// @if (@_jscript_version < 5.5)
var push = function(){
        for( var i = 0; arguments[ i ] != null; i++ )
                this[this.length++] = arguments[ i ];
        return( this );
        }
Array.prototype.push = push;
// @end