Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Allfilesystemobjects\shell\windows.copyaspath]
"CanonicalName"="{707C7BC6-685A-4A4D-A275-3966A5A3EFAA}"
"CommandStateHandler"="{3B1599F9-E00A-4BBF-AD3E-B3F99FA87779}"
"CommandStateSync"=""
"Description"="@shell32.dll,-30336"
"Icon"="imageres.dll,-5302"
"InvokeCommandOnSelection"=dword:00000001
"MUIVerb"="@shell32.dll,-30329"
"VerbHandler"="{f3d06e7c-1e45-4a26-847e-f9fcdee59be0}"
"VerbName"="copyaspath"
;====这个其实就是从win10的自带右键（按shift点右键）里面提取的方法
;HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\CopyAsPathMenu
;====不适合win7。复制出的结果带引号
复制代码

'复制多文件完整路径到剪切板
Dim filearray()
ReDim filearray(WScript.Arguments.Count - 1)
For i = 0 To WScript.Arguments.Count - 1
	filearray(i) = WScript.Arguments(i) & ">>tem"
Next
filearrays=join(filearray, "&echo ")
CreateObject("WScript.shell").Run "cmd /C echo " & filearrays & "&clip<tem&del tem", 0
复制代码

'复制多文件名称到剪切板
Dim filearray()
ReDim filearray(WScript.Arguments.Count - 1)
For i = 0 To WScript.Arguments.Count - 1
	filearray(i) = CreateObject("Scripting.FileSystemObject").GetFileName(WScript.Arguments(i)) & ">>tem"
Next
filearrays=join(filearray, "&echo ")
CreateObject("WScript.shell").Run "cmd /C echo " & filearrays & "&clip<tem&del tem", 0
复制代码

@echo off &(for %%i in (%*) do @echo,%%~i)|clip.exe&exit/b
复制代码

v=WSH.arguments, ws=WSH.createObject('WScript.shell');
for (s='',n=0,l=v.length; n<l; n++) s+=v(n).replace(/\"/g,'')+'\r\n';
fso=WSH.createObject('Scripting.FileSystemObject');
tF=ws.expandEnvironmentStrings('%temp%')+'\\_.clipT';
fp=fso.OpenTextFile(tF,2,true), fp.write(s.slice(0,-2)), fp.close();
ws.run('cmd.exe /c clip.exe<'+tF+'&&del/q '+tF, 0, false), WSH.quit();
复制代码

   注册表右键菜单定义中的批处代码可以识别 %1, %2, ..., %L 这类命令行参数，但不识别 %*，其中每个 %n 参数变量指向被选择的单个文件或目录，系统会为每个选择项自动开启一个cmd窗口进程，分别取用对应的 %n 运行右键菜单定义中的同一段代码，因此当选择项（文件或目录）较多时可能会导致系统卡死，当选择项未被双引号包裹但其中包含了&^等特殊字符时也会被系统拦截退出...
   楼主引用的 http://www.bathome.net/viewthread.php?tid=69150 其二楼代码，在具体运行时也会因应文件选择数量相应开启多个cmd窗口进程（可能因运行速度快而闪过未被察觉），可用如下代码（由二楼代码裁剪而成）予以验证...

Windows Registry Editor Version 5.00 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.pdf\Shell\rename1]
@="自定义重命名" 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.pdf\Shell\rename1\Command]
@="cmd /v:on /c (for %%i in (\"%1\") do echo,%%~ni)&pause"
复制代码

系统为资源管理器内置的 ‘复制路径’ 右键功能实现了一次性传递全部选择集至剪贴板（选择项被双引号包裹）， 系统内置的 ‘sendTo（发送到）’ 右键菜单机制亦可一次性传递全部选择集（命令行参数）至接收方（如挂载的批处脚本或vbs/jscript等脚本），例如7楼示例代码完成的将无双引号包裹的所有选择项传入剪贴板... 也许微软对用右键菜单一次性获取选择集也就提供了如此 ‘捷径’ 而已...

@="cmd /c mshta VBScript:Execute(\"For Each win In CreateObject(\"\"Shell.Application\"\").Windows:If win.Document.SelectedItems.Count>1 Then:For Each selected In win.Document.SelectedItems:f=selected.Name&vbCrLf&f:Next:Else:f=win.Document.SelectedItems.item(0).Path:End If:CreateObject(\"\"Scripting.Filesystemobject\"\").GetStandardStream(1).Write(f):Next\")(close)|clip"
复制代码

从资源管理器拖入命令行的路径参数》如果有空格则会被系统自动包裹双引号因此会保全其中的 &^=() 等特殊字符，如果无空格则因未被包裹双引号而不能保全其中的 &^=() 等特殊字符，这是一个被老东家多年 '视而不见的老毛病'...