Board logo

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

作者: 天堂的伪装    时间: 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")


对于你的要求,代码是这样的吧~
  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")
复制代码

作者: 天堂的伪装    时间: 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

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

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

回复 6# raymai97


    多谢你的帮忙.我感激不尽
作者: 天堂的伪装    时间: 2011-8-23 23:45

回复 8# broly


    多谢斑竹打救,现在可以了,感激啊!!
作者: broly    时间: 2011-8-23 23:50

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

作者: raymai97    时间: 2011-8-24 11:01

回复 7# 天堂的伪装


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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2