[文件操作] 批处理怎样创建桌面快捷方式？

mxxcgzxxx

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

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

garyng

回复 6# huabanyu8411


那个啊？

huabanyu8411

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

broly

' 保存我为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
复制代码

garyng

看看吧～

@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

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

raymai97

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

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