« コマンドラインやスクリプトから、ファイルやフォルダを「コピー」状態にする。 | トップページ | 正規表現でリネームする。 »

2006年11月27日 (月)

コマンドラインやスクリプトから、ファイルやフォルダに「貼り付け」る。

エクスプローラGUIの右クリック「貼り付け」がコマンドラインやスクリプトから出来ます。

貼り付け.CMD ファイル

@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0" "%~dp1" "%~nx1"
GOTO :EOF
@end
var Shell=new ActiveXObject('Shell.Application');
var Folder=Shell.NameSpace(WScript.Arguments.Item(0));
var FolderItem=Folder.ParseName(WScript.Arguments.Item(1));
if(FolderItem){
  var Verbs=FolderItem.Verbs()
  for(var k=0;k<Verbs.Count;k++){
    if(Verbs.Item(k).Name=="貼り付け(&P)"){
      Verbs.Item(k).DoIt();
      WScript.Quit();
    }
  }
  WScript.Echo('貼り付けるデータがありません');
}
else WScript.Echo('ファイルがありません');

« コマンドラインやスクリプトから、ファイルやフォルダを「コピー」状態にする。 | トップページ | 正規表現でリネームする。 »