您所在位置：主题：求助：关于VB建立快节方式
jaxm
[专家分：0] 发布于 2008-04-20 22:55:00
想写一个程序
可以建立任何路径的快节方式到桌面
Dim file As String
file = sc.Text
Set WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\方式.lnk") '此处为快捷名称
oMyShortcut.TargetPath = sc.Text '此处为源文件可以使网络url也可以是本地文件
oMyShortcut.Save
运行后生成的快节方式里面的路径不是 sc.text中的路径
而是比sc.text多了一个 "C:\"
比如sc.text中的内容是 D:\jaxm\1.exe
生成的就是 "C:\ D:\jaxm\1.exe"
请教高手是哪里出了问题
该怎么解决```
在线等答案```谢谢
可以建立任何路径的快节方式到桌面
Dim file As String
file = sc.Text
Set WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\方式.lnk") '此处为快捷名称
oMyShortcut.TargetPath = sc.Text '此处为源文件可以使网络url也可以是本地文件
oMyShortcut.Save
运行后生成的快节方式里面的路径不是 sc.text中的路径
而是比sc.text多了一个 "C:\"
比如sc.text中的内容是 D:\jaxm\1.exe
生成的就是 "C:\ D:\jaxm\1.exe"
请教高手是哪里出了问题
该怎么解决```
在线等答案```谢谢
