/*

	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