2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

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

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('ファイルがありません');

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