ファイル名をコピー

ファイル名をコピー

以下のスクリプトを保存して
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