VB API 如何查找一个.exe文件的快捷方式的"目标"属性?本意是: 我需要查找一个软件(.exe)的执行环境,方法是找到它的快捷方式的"目标"属性。 我现在可以在找该快捷方式之前,找到该.exe文件及位置。比如说,在开始/所有程序中或桌面查找该快捷方式,再找它的"目标"属性。谢谢,问题比较怪异!
是不是该在这里查找? C:\Documents and Settings\All Users\Desktop C:\Documents and Settings\All Users\Start Menu\Programs
’试图得到该快捷方式的“目标”属性。注意不是“目标位置”属性!’找到快捷方式文件,显示它的名字Option Explicit Dim CATIAShortCutFile 'As String Dim CATIARunEnv As String Private Sub Command1_Click() Dim strFileName As String strFileName = Dir("C:\Documents and Settings\All Users\Desktop\") While (Len(strFileName)) If InStr(1, strFileName, "CATIA") Then CATIAShortCutFile = strFileName '找到快捷方式文件,显示它的名字 MsgBox CATIAShortCutFile
'试图得到该快捷方式的“目标”属性。注意不是“目标位置”属性! CATIARunEnv = CATIAShortCutFile.Target ’我知道这里肯定出问题, ’CATIAShortCutFile只是个字符串,但我不知道该怎么处理! MsgBox CATIARunEnv Exit Sub End If strFileName = Dir Wend End Sub谢谢!
是不是该在这里查找?
C:\Documents and Settings\All Users\Desktop
C:\Documents and Settings\All Users\Start Menu\Programs
’试图得到该快捷方式的“目标”属性。注意不是“目标位置”属性!’找到快捷方式文件,显示它的名字Option Explicit
Dim CATIAShortCutFile 'As String
Dim CATIARunEnv As String
Private Sub Command1_Click()
Dim strFileName As String
strFileName = Dir("C:\Documents and Settings\All Users\Desktop\")
While (Len(strFileName))
If InStr(1, strFileName, "CATIA") Then
CATIAShortCutFile = strFileName
'找到快捷方式文件,显示它的名字
MsgBox CATIAShortCutFile
'试图得到该快捷方式的“目标”属性。注意不是“目标位置”属性!
CATIARunEnv = CATIAShortCutFile.Target ’我知道这里肯定出问题,
’CATIAShortCutFile只是个字符串,但我不知道该怎么处理!
MsgBox CATIARunEnv
Exit Sub
End If
strFileName = Dir
Wend
End Sub谢谢!
但怎么根据快捷方式文件名,得到快捷方式Object?
《挖掘Windows系统快捷方式的秘密》:http://www.mydown.com/tests/242/242065.html