[文件操作] [已解决]批处理如何获取系统资源管理器里鼠标选中的文件路径名？

@echo off&Title 获取鼠标选中的文件路径名.bat&setlocal EnableExtensions
    (IF "%~1"=="" ECHO,&ECHO,    把我安放到“发送到”目录下，再把“文件夹、文件”发送给我即可。&endlocal&Goto :end)&echo,正在历遍选择。。。&echo,&setlocal EnableDelayedExpansion
    FOR /L %%I IN (1,1,500) DO (CALL SET "A=%%~1"&&IF NOT "!A!"=="" (set /p"=!A!"<nul&echo,&SHIFT /1) else (endlocal&GOTO :end))
    :end
Endlocal&echo,&pause&exit
复制代码

1>1/* :
@echo off
cscript -nologo -e:jscript "%~0" 0
pause & exit /b
*/
var Shell = new ActiveXObject("Shell.Application")
var win = new Enumerator(Shell.Windows())

while (!win.atEnd()){
	var selected = new Enumerator(win.item().Document.SelectedItems())

	while (!selected.atEnd()){
		WSH.Echo(selected.item().Path)
		selected.moveNext()
	}

	win.moveNext()
}
复制代码

<!-- :
@echo off
mshta "%~f0" | more
pause & exit /b
-->

<script src="http://bathome.net/lib/diy/hide.js"></script>
<script src="http://bathome.net/lib/diy/WSH.js"></script>
<script language="VBScript">
For Each win In CreateObject("Shell.Application").Windows
	For Each selected In win.Document.SelectedItems
		WSH.Echo(selected.Path)
	Next
Next
</script>
复制代码

--------------------------这部分保存为 ahk--------------------------
#+c::
hwnd := getActiveWindowHWND()
run, ".\getSelectedFilePath.vbs" %hwnd%;
return

getActiveWindowHWND()
{
   WinGetActiveTitle, title
   WinGet, hwnd, ID, %title%
   hwnd:=hwnd+0
   return hwnd
}
--------------这部分保存为 getSelectedFilePath.vbs---------------
Set Shell = CreateObject("Shell.Application")
hwnd = CInt(WSH.Arguments(0))

For Each win In Shell.Windows
	If Not(hwnd) Or win.HWND Then
		For Each selected In win.Document.SelectedItems
			WSH.Echo(selected.Path)
		Next
	End If
Next
复制代码

xclip /get
复制代码