批处理之家 - Powered by Discuz! Board

标题: [问题求助] 64位系统下获得快捷方式指向的VBS的怪异错误 [打印本页]

作者: abcbuzhiming 时间: 2011-4-5 17:41 标题: 64位系统下获得快捷方式指向的VBS的怪异错误

Function 获取快捷方式的目标(快捷方式的路径)
    Dim fso, fileto, wshs
    Dim 源文件路径,参数
    Set wshs = CreateObject("WScript.shell")
    Set fileto = wshs.CreateShortcut(快捷方式的路径)
    源文件路径 = fileto.targetpath
    参数 = fileto.Arguments
    获取快捷方式的目标 = 源文件路径 & " " & 参数
    Set wshs = Nothing
    Set fileto =  Nothing
End Function
复制代码

这是自己写的一个类vbs调用，查找快捷方式文件指向的真实源文件的路基和参数，合并得到完整的命令行，但是这个程序在32位系统下跑的好好的，跑到64位系统下就存在一个问题，系统是MSDN win7 64位旗舰版，运行这个程序时，如果查找的快捷方式，指向的是“C:\Program Files”下的某个文件夹内的源文件，返回来的却是“C:\Program Files (x86)......”，64系统下确实是有两个C:\Program Files，一个C:\Program Files和一个C:\Program Files (x86)，前者是64位程序所默认安装位置，后者似乎是为了兼容x86而作的目录，但是我的程序确实在前者的目录下，不在后者，不知道为什么会返回后者的路径，这是个很奇异的问题，难道说VBS自己还有32和64之分？

作者: fly2sky 时间: 2011-7-4 23:33

这个很好理解，VBS解释程序还是32位的，谁告诉你说有64位的VBS了

欢迎光临批处理之家 (http://bathome.net./)