|
コメントありがとうございます。
その後自分でやってみてびっくりしたのですが、貼り付けたファイルは選択状態にな
らないのですね。
(ただし、Windowsエクスプローラも同じ)
必要かどうかは分かりませんが、スクリプトを書いてみました。
' ここから
Dim item
Dim fs
Dim newname
item = GetNextItem(-1, 2)
If item < 0 Then
EndMacro
ElseIf IsFolder(item) Then
EndMacro
End If
newname = InputBox("新しいファイル名を入力して下さい", "同じフォルダにコピー
", GetItemText(item))
If newname = "" Then
EndMacro
End If
Set fs = CreateObject("Scripting.FileSystemObject")
newname = fs.BuildPath(GetDirectory(), newname)
If fs.FileExists(newname) Or fs.FolderExists(newname) Then
MsgBox "その名前は使われています"
EndMacro
End If
fs.CopyFile GetItemPath(item), newname
' ここまで
これをツールに登録してショートカットキーを割り当てれば、一応最初の目的は達成
されると思います。
新しいショートカットキーをいっこ覚える必要はありますが…。
以上、よろしくお願いいたします。
|
|