ツリーをコピー
以下のスクリプトをどこかに保存して
sendToにショートカットをおいておく
copytree.vbs
Option Explicit
Sub treeclip(currentPath)
Dim WSH, sCmd
Set WSH = CreateObject("WScript.Shell")
sCmd = "tree " & currentPath & " /f|clip"
Call WSH.Run("%ComSpec% /c " & sCmd, 0, false)
Set WSH = Nothing
End Sub
IF WScript.Arguments.Count > 0 Then
Call treeclip(WScript.Arguments(0))
End If