VBS在当前文件夹创建文件快捷方式

Heykuz

1. set ws=WScript.CreateObject("WScript.Shell")
   
2. strDesktop = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
   
3. set oShellLink = ws.CreateShortcut(strDesktop & "\1.lnk")
   
4. oShellLink.Hotkey = "F8"
   
5. oShellLink.TargetPath =left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))& "1.exe"
   
6. oShellLink.WorkingDirectory = strDesktop
   
7. oShellLink.Save

复制代码

代码就不多解释，left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))为当前路径。
感言：最后还是我（一个新手）自己研究出来的。
结论：关于创建快捷方式，还是VBS比BAT好，因为BAT只能创建url式的，并不是真正的LNK。

发现新问题：发现vbs不支持*.*，还有，如果我想同时创建1.exe和2.exe，又该怎么样写呢，望有人解答。

forfiles

BAT里面使用mshta是可以创建lnk的
http://www.bathome.net/thread-11050-1-1.html
http://www.bathome.net/thread-15756-1-1.html