批处理之家 - Powered by Discuz! Board

标题: [文件操作] 批处理怎样创建桌面快捷方式？ [打印本页]

作者: mxxcgzxxx 时间: 2011-4-7 16:39 标题: 批处理怎样创建桌面快捷方式？

如果我有一个在 D: 下的文件 KDVoiceV2.30.exe

如何可以快速帮他创建一个桌面快捷方式并命名为"文字转语音"?

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

哇~ 今天搜帖子搜到这个~ 这样久了也没有人帮你？试试看吧

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\文字转语音.lnk""):b.TargetPath=""D:\KDVoiceV2.30.exe"":b.WorkingDirectory="""":b.Save:close")
复制代码

作者: broly 时间: 2011-8-23 18:44

可以用论坛搜索功能搜索相关帖子，应该有不少，包括bat和vbs的

作者: garyng 时间: 2011-8-23 20:12

看看吧～

@echo off
@echo.
@echo.
set /p p=将要创建快捷方式的文件放到这里来:
set url=%p%

echo [InternetShortcut] >%url:~0%.url
echo URL=%p% >>%url:~0%.url
echo IconIndex=0 >>%url:~0%.url
echo IconFile=%windir%\system32\cmd.exe>>%url:~0%.url
pause
复制代码

原文：http://bbs.bathome.net/thread-740-1-5.html

作者: broly 时间: 2011-8-25 00:22

' 保存我为CreateLnk.vbs
Dim Shell,DesktopPath,link
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\文字转语音.lnk")
link.TargetPath = "D:\KDVoiceV2.30.exe"
link.WorkingDirectory = "D:\"
link.Save
Set Shell = Nothing
Set link = Nothing
复制代码

作者: huabanyu8411 时间: 2011-8-25 14:39

上面的那个bat创建桌面快捷方式的，我试验了下，怎么执行不成功呢。

作者: garyng 时间: 2011-8-26 19:27

回复 6# huabanyu8411

那个啊？

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