批处理怎样创建桌面快捷方式？

mxxcgzxxx

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

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

raymai97

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

1. 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

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

garyng

看看吧～

1. @echo off
   
2. @echo.
   
3. @echo.
   
4. set /p p=将要创建快捷方式的文件放到这里来:
   
5. set url=%p%
   
6. 
   
7. echo [InternetShortcut] >%url:~0%.url
   
8. echo URL=%p% >>%url:~0%.url
   
9. echo IconIndex=0 >>%url:~0%.url
   
10. echo IconFile=%windir%\system32\cmd.exe>>%url:~0%.url
    
11. pause

复制代码

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

broly

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 & "\文字转语音.lnk")
   
6. link.TargetPath = "D:\KDVoiceV2.30.exe"
   
7. link.WorkingDirectory = "D:"
   
8. link.Save
   
9. Set Shell = Nothing
   
10. Set link = Nothing

复制代码

huabanyu8411

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

garyng

回复 6# huabanyu8411


那个啊？