批处理之家 - Powered by Discuz! Board

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

作者: 天堂的伪装 时间: 2011-8-23 13:45 标题: [已解决]批处理如何把当前文件夹里的一个程序快捷到桌面？

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

解决代码：8楼

作者: raymai97 时间: 2011-8-23 18:16

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")
复制代码

作者: 天堂的伪装 时间: 2011-8-23 19:18

回复 2# raymai97

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

作者: raymai97 时间: 2011-8-23 19:31

回复 3# 天堂的伪装

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

作者: 天堂的伪装 时间: 2011-8-23 22:05

回复 4# raymai97

纳

作者: raymai97 时间: 2011-8-23 22:26

回复 5# 天堂的伪装

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

作者: broly 时间: 2011-8-23 23:36

' 保存我为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
复制代码

作者: 天堂的伪装 时间: 2011-8-23 23:44

回复 6# raymai97

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

作者: 天堂的伪装 时间: 2011-8-23 23:45

回复 8# broly

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

作者: broly 时间: 2011-8-23 23:50

批处理

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 时间: 2011-8-24 11:01

回复 7# 天堂的伪装

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

欢迎光临批处理之家 (http://bbs.bathome.net/)