以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取桌面快捷方式发现的一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175923)

--  作者:sloyy
--  发布时间:2022/3/24 9:57:00
--  获取桌面快捷方式发现的一个问题
在获取桌面快捷方式的时候,发现一个问题:
Dim Proc As New Process
proc.File =  SpecialFolder.DesktopDirectory & "\\微信.lnk"
Output.Show(proc.File )
实际的快捷方式路径是:C:\\Users\\Public\\Desktop\\微信.lnk
结果输出 C:\\Users\\Administrator\\Desktop\\微信.lnk
按这个路径调用外部程序,会提示找不到程序
我在win7和win10上运行(都是64位的操作系统),都出错,这是怎么回事呢?

--  作者:有点蓝
--  发布时间:2022/3/24 10:58:00
--  
C:\\Users\\Public\\Desktop是一个虚拟的逻辑文件夹路径,C:\\Users\\Administrator\\Desktop才是正确的。

win7是没有问题的,不过win10只认虚拟路径,要这样

Dim Proc As New Process \'定义一个新的Process
proc.File =  Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\\微信.lnk" 
Proc.Start()

--  作者:sloyy
--  发布时间:2022/3/24 12:59:00
--  
蓝版你太厉害啦,问题得到了解决