フルパスをコピー
以下のスクリプトを保存して
sendToにショートカットをおいておく
copyfullpath.vbs
Option Explicit
Dim tmp
Dim Args
Set Args = CreateObject("System.Collections.ArrayList")
IF WScript.Arguments.Count > 0 Then
For Each tmp In WScript.Arguments
Args.Add tmp
Next
Call PutInClipboardText( Args.ToArray() )
End If
Public Sub PutInClipboardText(ByVal arr)
Dim cmd
Dim str
Dim WSH
str = Replace(Replace(Join(arr,vbCrLf),"\","\\"),vbCrLf,"\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