ファイル名をコピー
以下のスクリプトを保存して
sendToにショートカットをおいておく
copyfilename.vbs
Option Explicit
Dim tmp
Dim tmpPath
Dim Args
Set Args = CreateObject("System.Collections.ArrayList")
IF WScript.Arguments.Count > 0 Then
For Each tmp In WScript.Arguments
tmpPath = Split(tmp, "\")
Args.Add tmpPath(Ubound(tmpPath))
Next
Call PutInClipboardText( Args.ToArray() )
End If
Public Sub PutInClipboardText(ByVal arr)
Dim cmd
Dim str
Dim WSH
str = Join(arr, "\n")
cmd = "mshta.exe ""javascript:clipboardData.setData('text', '" & str & "');close()"""
Set WSH = CreateObject("WScript.Shell")
Call WSH.Run("%ComSpec% /c " & cmd, 0, false)
End Sub