再帰処理テンプレ

RecursiveProcess.mel

/*
再帰処理テンプレ
指定されたフォルダ以下のmltファイルをすべてリストします。
mlt 部分を、 ma , mb に書き換えることで通常のMayaでも利用可
*/

proc RecursiveProcess(){
    string $window = "RecursiveProcess";

    if( window( "-exists" , $window ) ){
        deleteUI $window;
    }

    window( "-title" , $window , "-width" ,  300 , "-toolbox" , true , $window );

    columnLayout( "-columnAttach" , "both" , 5 , "-rowSpacing" , 10 , "-columnWidth" , 250 );
    textField( "-tx" , "" , "tf_dirPath" );
    button( "-l" , "上記フォルダ以下のmltファイルをリストアップ" , "-c" , "SearchDirFiles(textField( \"-q\" , \"-tx\" , \"tf_dirPath\" ) )" );


    showWindow $window; 
}



proc SearchDirFiles( string $_path ){

    string $Dirpass = $_path ;
    string $list[] = `getFileList -fld $Dirpass` ;

    for( $s in $list ){
        $fullPath = $_path+"/"+$s;
        // ***.mlt ファイルが見つかった場合のみ処理を行うときはこの if 文内に処理を追記
        if( gmatch( $s , "*.mlt") > 0 ){
            print ( $fullPath+"\n");
            /*
            ここにファイルに対して行いたい処理を記述。
            例えば、シーンを開いてシーン内にある特定のノードを削除したりとか。
            */
        }
        SearchDirFiles( $fullPath );
    }
}

RecursiveProcess();