Propiedad IShellLinkDual2.Target
Contiene el destino del objeto de vínculo.
Esta propiedad es de solo lectura.
Sintaxis
Target = IShellLinkDual2.Target
Valor de propiedad
Expresión de objeto que se evalúa como el objeto FolderItem del destino.
Ejemplos
En el ejemplo siguiente se usa Target para recuperar el destino de un acceso directo a Internet Explorer. Se muestra un uso adecuado para JScript, VBScript y Visual Basic.
Jscript:
<script language="JScript">
function fnIShellLinkDual2TargetJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfPROGRAMS = 2;
objFolder = objShell.NameSpace(ssfPROGRAMS);
if (objFolder != null)
{
var objFolderItem;
objFolderItem = objFolder.ParseName("Internet Explorer.lnk");
if (objFolderItem != null)
{
var objShellLink;
objShellLink = objFolderItem.GetLink;
if (objShellLink != null)
{
var objTargetItem;
objTargetItem = objShellLink.Target;
if (objTargetItem != null)
{
// Add code here.
}
}
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnIShellLinkDual2TargetVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfPROGRAMS
ssfPROGRAMS = 2
set objFolder = objShell.NameSpace(ssfPROGRAMS)
if (not objFolder is nothing) then
dim objFolderItem
set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
if (not objFolderItem is nothing) then
dim objShellLink
set objShellLink = objFolderItem.GetLink
if (not objShellLink is nothing) then
dim objTargetItem
set objTargetItem = objShellLink.Target
if (not objTargetItem is nothing) then
'Add code here.
end if
set objTargetItem = nothing
end if
set objShellLink = nothing
end if
set objFolderItem = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnIShellLinkDual2TargetVB()
Dim objShell As Shell
Dim objFolder As Folder
Dim ssfPROGRAMS
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
If (Not objFolderItem Is Nothing) Then
Dim objShellLink As ShellLinkObject
Set objShellLink = objFolderItem.GetLink
If (Not objShellLink Is Nothing) Then
Dim objTargetItem As FolderItem
Set objTargetItem = objShellLink.Target
If (Not objTargetItem Is Nothing) Then
'Add code here
End If
Set objTargetItem = Nothing
End If
Set objShellLink = Nothing
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Requisitos
Requisito | Value |
---|---|
Cliente mínimo compatible |
Windows 2000 Professional, Windows XP [solo aplicaciones de escritorio] |
Servidor mínimo compatible |
Windows Server 2003 [solo aplicaciones de escritorio] |
Encabezado |
|
IDL |
|
Archivo DLL |
|
Consulte también