返回列表 发帖
buyiyang

Rank: 5Rank: 5

帖子
461 
积分
854 
技术
124  
捐助
0  
注册时间
2022-3-26 
1楼 跳转到 »
发表于 2024-10-26 10:38 | 显示全部帖子 
@="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"COPY

TOP

返回列表