Question

请问怎么批处理实现复制文件到桌面快捷方式？帮忙改下这段代码可以吗？非常感谢

copy "%~1" C:\Users\leo\Desktop

本来想要个功能实现复制文件到桌面快捷方式
别人给了段类似的代码 但是实现的是复制原文件到桌面 并不是快捷方式
请问怎么改成复制原文件的快捷方式

Answer 1

@echo off
::拖拽文件到该批处理图标上即可
for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do set "desk=%%j"
set "LnkFile=%desk%\%~n1.lnk"
set "TargetPath=%~1"
call :CreateShort "%LnkFile%" "%TargetPath%"
ping /n 2 0 >nul & exit
:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~1""):b.TargetPath=""%~2"":b.Save:close")
goto :eof

及时采纳回答