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

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

[复制链接]
发表于 2011-8-23 13:45:27 | 显示全部楼层 |阅读模式
我想使用批处理来完成下面的这个操作
把当前文件夹里的一个程序“54.exe”快捷到桌面并重命名为“52.exe”
急用,请各位高手指教

解决代码:8楼

评分

参与人数 1PB +2 收起 理由
CrLf + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2011-8-23 18:16:23 | 显示全部楼层
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")


对于你的要求,代码是这样的吧~
  1. 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技术 +1 收起 理由
CrLf + 1 乐于助人

查看全部评分

 楼主| 发表于 2011-8-23 19:18:27 | 显示全部楼层
回复 2# raymai97


    我运行了。出现了一个脚本错误 要如何解决?
发表于 2011-8-23 19:31:28 | 显示全部楼层
回复 3# 天堂的伪装


    这么奇怪?我这里没有问题啊~ 打开我的电脑,在地址栏那边输入%userprofile%,截图给我看看~
 楼主| 发表于 2011-8-23 22:05:35 | 显示全部楼层
回复 4# raymai97


    纳
发表于 2011-8-23 22:26:55 | 显示全部楼层
回复 5# 天堂的伪装


    看不到图啊~ 请上传到论坛~
发表于 2011-8-23 23:36:47 | 显示全部楼层
  1. ' 保存我为CreateLnk.vbs

  2. Dim Shell,DesktopPath,link
  3. Set Shell = CreateObject("WScript.Shell")
  4. DesktopPath = Shell.SpecialFolders("Desktop")
  5. Set link = Shell.CreateShortcut(DesktopPath & "\52.lnk")
  6. link.TargetPath = shell.CurrentDirectory & "\54.exe"
  7. link.WindowStyle = 1
  8. link.WorkingDirectory = shell.CurrentDirectory
  9. link.Save
  10. Set Shell = Nothing
  11. Set link = Nothing
复制代码

评分

参与人数 1技术 +1 收起 理由
天堂的伪装 + 1 一针见血

查看全部评分

 楼主| 发表于 2011-8-23 23:44:30 | 显示全部楼层
回复 6# raymai97


    多谢你的帮忙.我感激不尽
 楼主| 发表于 2011-8-23 23:45:27 | 显示全部楼层
回复 8# broly


    多谢斑竹打救,现在可以了,感激啊!!
发表于 2011-8-23 23:50:47 | 显示全部楼层
批处理
  1. 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技术 +1 收起 理由
raymai97 + 1 又学到新东西了,对我很有用

查看全部评分

发表于 2011-8-24 11:01:07 | 显示全部楼层
回复 7# 天堂的伪装


    我知道原因了,因为你的桌面文件夹名称不是desktop,所以我代码会发生错误,而broly用的是special folder方法,故没有问题~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 00:27 , Processed in 0.024206 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表