| |
tsuchi-sさん，ともびさん，takuaraさん，こんにちは。
たたみ方にもいろいろ要望があるようですね。
次のマクロでオプションを指定して試してください。
時によって使い分けるとしたら，メニュー形式にもできます。
では， (^^)/~
山紫水明
//----- TKFold.mac --------------------------------------//
// フォルダをたたむ
//////// オプション（半角数字で指定）/////////
#fold = 2; //1:「受信」階層まで残す
//2:「受信」の次の階層まで残す
//////////////////////////////////////////////
loaddll "tkinfo.dll";
if(#fold == 1 ) call Fold1;
else call Fold2;
#n = dllfunc( "SelectFolder", dllfuncstr( "Account", 0 ), "受信" );
freedll;
endmacro;
Fold1:
#i = 0;
while( 1 ) {
$Account = dllfuncstr( "Account", #i );
if( $Account == "" ) break;
#n = dllfunc( "SelectFolder", $Account, "受信" );
#n = dllfunc( "ExpandFolder", 0 );
#i = #i + 1;
}
return;
Fold2:
#n = dllfunc( "SelectFolder", dllfuncstr( "Account", 0 ), "受信" );
while( 1 ) {
if( ! dllfunc( "NextFolder" ) ) break;
$f = dllfuncstr( "CurrentFolder" );
if( strstr( $f, "\\" ) < 0 ) continue;
$f = midstr( $f, strstr( $f, "\\" ) + 1, 999 );
if( strstr( $f, "\\" ) < 0 ) #n = dllfunc( "ExpandFolder", 0 );
}
return;
//-------------------------------------------------------------//
|
|