批处理之家 » BAT求助&讨论 » [已解决]批处理如何把当前文件夹里的一个程序快捷到桌面？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

天堂的伪装

Rank: 1

帖子: 16
积分: 28
技术: 0
捐助: 0
注册时间: 2011-8-22

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2011-8-23 13:45 | 只看该作者

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

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

解决代码：8楼

1 评分人数

CrLf: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

2楼

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

1 评分人数

CrLf: 乐于助人技术 + 1

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

天堂的伪装

Rank: 1

帖子: 16
积分: 28
技术: 0
捐助: 0
注册时间: 2011-8-22

3楼

发表于 2011-8-23 19:18 | 只看该作者

回复 2# raymai97

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

路人。。

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

4楼

发表于 2011-8-23 19:31 | 只看该作者

回复 3# 天堂的伪装

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

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

天堂的伪装

Rank: 1

帖子: 16
积分: 28
技术: 0
捐助: 0
注册时间: 2011-8-22

5楼

发表于 2011-8-23 22:05 | 只看该作者

回复 4# raymai97

纳

路人。。

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

6楼

发表于 2011-8-23 22:26 | 只看该作者

回复 5# 天堂的伪装

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

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

7楼

发表于 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
复制代码

1 评分人数

天堂的伪装: 一针见血技术 + 1

---学无止境---

天堂的伪装

Rank: 1

帖子: 16
积分: 28
技术: 0
捐助: 0
注册时间: 2011-8-22

8楼

发表于 2011-8-23 23:44 | 只看该作者

回复 6# raymai97

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

路人。。

天堂的伪装

Rank: 1

帖子: 16
积分: 28
技术: 0
捐助: 0
注册时间: 2011-8-22

9楼

发表于 2011-8-23 23:45 | 只看该作者

回复 8# broly

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

路人。。

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

10楼

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

1 评分人数

raymai97: 又学到新东西了，对我很有用技术 + 1

---学无止境---

Rank: 5 Rank: 5

帖子: 268
积分: 872
技术: 19
捐助: 0
注册时间: 2010-5-30

11楼

发表于 2011-8-24 11:01 | 只看该作者

回复 7# 天堂的伪装

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

为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html