| |
貼り付けの処理自体はWindowsの貼り付けと同じで、場合によっては裏でコピー処理
が働いたまま操作可能になてしまうので、貼り付けるファイルが１つだけの場合で、
かつ同じ場所の場合だけ自前でスクリプトで処理して、それ以外を普通の貼り付けに
するといいかもしれません。
そういうスクリプトを作ってみました。
例えば以下の内容をテキストエディタでc:\folder\test.jsとして保存し、ブック
マークのパスに「js:c:\folder\test.js」として指定します。
varSafeArray = GetClipboardFiles();
objArray = varSafeArray.toArray();
if(objArray.length == 1 ) {
strPath = objArray[0];
objFso = new ActiveXObject("Scripting.FileSystemObject");
if( objFso.GetParentFolderName(strPath) == GetDirectory() ) {
strBase = objFso.GetBaseName(strPath);
strNew = Input( "貼り付けるファイル名(拡張子除く)",strBase );
if( strNew && strNew != "" ) {
if( strNew == strBase ) {
Message("同じファイル名は貼り付けできません。");
} else {
strFileNameNew = strNew+"."+objFso.GetExtensionName(strPath);
objFso.CopyFile(strPath, GetDirectory()+"\\"+strFileNameNew);
Refresh(1);
SelectItem(strFileNameNew,0x02);
}
}
EndMacro();
}
}
Paste();
|
|