| |
>出来れば「存在しないファイルヒストリを削除する」機能をコマンドとして追加して
>もらえるとうれしいのですが、
>よろしくお願いします。
マクロで作ると現状でもできると思います。
ヒストリに全部アクセスするとネットワークで固まることや、USBメモリの存在
など、いろいろな状況が考えられるので、必要に応じてマクロを改変していただ
ければいいと思います。
#i=0;
#c=0;
while(1){
$a=getfilehist(#i);
if( $a=="" )break;
#c=#c+1;
if( existfile($a) == false ) {
question str(#c) + "番目のヒストリ\n" +
$a + "\nを削除しますか？";
if( result == yes ) {
call DeleteHist #i;
continue;
}
}
#i=#i+1;
}
message "ヒストリ" + str(#c) + "個をチェックしました";
endmacro;
DeleteHist:
##iDel=##1;
while(1){
$$sDel=getfilehist(##iDel+1);
$$sFavo=getfilehist(##iDel+1,1);
if( $$sDel=="" ) {
setfilehist ##iDel, "";
break;
}
setfilehist ##iDel, $$sDel;
setfilehist ##iDel, $$sFavo,1;
##iDel = ##iDel+1;
}
return;
|
|