[文件操作] [已解决]批处理如何把当前文件夹里的一个程序快捷到桌面？

天堂的伪装

我想使用批处理来完成下面的这个操作
把当前文件夹里的一个程序“54.exe”快捷到桌面并重命名为“52.exe”
急用，请各位高手指教

解决代码：8楼

raymai97

Batcher是强大的~ link：http://bathome.net/viewthread.ph ... hlight=%BF%EC%BD%DD

@echo off
set SrcFile=C:\test\a.txt
set LnkFile=D:\test\b.txt
call :CreateShort "%SrcFile%" "%LnkFile%"
goto :eof

::Arguments              目标程序参数
:escription            快捷方式备注
::FullName               返回快捷方式完整路径
::Hotkey                 快捷方式快捷键
::IconLocation           快捷方式图标，不设则使用默认图标
::TargetPath             目标
::WindowStyle            窗口启动状态
::WorkingDirectory       起始位置

:CreateShort
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")

对于你的要求，代码是这样的吧~

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\52.exe.lnk""):b.TargetPath=""%cd%\54.exe"":b.WorkingDirectory="""":b.Save:close")
复制代码

天堂的伪装

回复 2# raymai97


    我运行了。出现了一个脚本错误 要如何解决？

raymai97

回复 3# 天堂的伪装


    这么奇怪？我这里没有问题啊~ 打开我的电脑，在地址栏那边输入%userprofile%，截图给我看看~

天堂的伪装

回复 4# raymai97


    纳

raymai97

回复 5# 天堂的伪装


    看不到图啊~ 请上传到论坛~

broly

' 保存我为CreateLnk.vbs

Dim Shell,DesktopPath,link
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\52.lnk")
link.TargetPath = shell.CurrentDirectory & "\54.exe"
link.WindowStyle = 1
link.WorkingDirectory = shell.CurrentDirectory
link.Save
Set Shell = Nothing
Set link = Nothing
复制代码

天堂的伪装

回复 6# raymai97


    多谢你的帮忙.我感激不尽

天堂的伪装

回复 8# broly


    多谢斑竹打救，现在可以了，感激啊！！

broly

批处理

mshta VBScript:Execute("Set w=CreateObject(""WScript.Shell""):Set l=w.CreateShortcut(w.SpecialFolders(""Desktop"")&""\52.lnk""):l.TargetPath=""%cd%\54.exe"":l.WorkingDirectory=""%cd%"":l.Save:close")
复制代码

raymai97

回复 7# 天堂的伪装


    我知道原因了，因为你的桌面文件夹名称不是desktop，所以我代码会发生错误，而broly用的是special folder方法，故没有问题~