ShellLinkObject.Save, méthode
Enregistre toutes les modifications apportées au lien.
iRetVal = ShellLinkObject.Save(
[ sFile ]
)
-
sFile [in, facultatif]
-
Type : Variant
Valeur de chaîne qui contient le chemin complet du fichier dans lequel les nouvelles informations de lien doivent être enregistrées. Si aucun fichier n’est spécifié, le fichier actif est utilisé.
L’exemple suivant montre l’utilisation appropriée de cette méthode pour JScript, VBScript et Visual Basic.
Jscript:
<script language="JScript">
function fnShellLinkObjectSaveJ()
{
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)
{
// Making a change to the ShellLinkObject.
objShellLink.Description = "New Description";
// Saving the changes.
objShellLink.Save();
}
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnShellLinkObjectSaveVB()
dim objShell
dim objFolder
dim ssfPROGRAMS
ssfPROGRAMS = 2
set objShell = CreateObject("shell.application")
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
'Making a change to the ShellLinkObject.
objShellLink.Description = "New Description"
'Saving the changes.
objShellLink.Save()
end if
set objShellLink = nothing
end if
set objFolderItem = nothing
end if
set objFolder = nothing
set objShell = nothing
end function
</script>
Visual Basic :
Private Sub fnShellLinkObjectSaveVB()
Dim objShell As Shell
Dim objFolder As Folder
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
'Making a change to the ShellLinkObject.
objShellLink.Description = "New Description"
'Saving the changes
objShellLink.Save
End If
Set objShellLink = Nothing
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Condition requise | Valeur |
---|---|
Client minimal pris en charge |
Windows 2000 Professionnel avec SP3 [applications de bureau uniquement] |
Serveur minimal pris en charge |
Windows 2000 Server [applications de bureau uniquement] |
En-tête |
|
IDL |
|
DLL |
|