IShellDispatch3.AddToRecent method
Adds a file to the most recently used (MRU) list.
Syntax
IShellDispatch3.AddToRecent(
varFile,
[ bstrCategory ]
)
IShellDispatch3.AddToRecent( _
ByVal varFile As Variant, _
[ ByVal bstrCategory As BSTR ] _
)
Parameters
-
varFile [in]
-
Type: Variant
A String that contains the path of the file to add to the list of recently used documents.
Windows Vista: Set this parameter to null to clear the recent documents folder.
-
bstrCategory [in, optional]
-
Type: BSTR
A String that contains the name of the category in which to place the file.
Return value
JScript
This method does not return a value.
VB
This method does not return a value.
Examples
The following examples show the use of AddToRecent for JScript, VBScript, and Visual Basic.
JScript:
<script language="JScript">
function fnIShellDispatch3AddToRecentJ()
{
var objShell = new ActiveXObject("shell.application");
var ssfWINDOWS = 36;
var objFolder;
objFolder = objShell.NameSpace(ssfWINDOWS);
if (objFolder != null)
{
var objFolderItem;
objFolderItem = objFolder.ParseName("system.ini");
if (objFolderItem != null)
{
objShell.AddToRecent(objFolderItem.Path);
}
}
}
</script>
VBScript:
<script language="VBScript">
function fnIShellDispatch3AddToRecentVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfWINDOWS
ssfWINDOWS = 36
set objFolder = objShell.NameSpace(ssfWINDOWS)
if (not objFolder is nothing) then
dim objFolderItem
set objFolderItem = objFolder.ParseName("system.ini")
if (not objFolderItem is nothing) then
objShell.AddToRecent (objFolderItem.Path)
end if
set objFolderItem = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnIShellDispatch3AddToRecent()
Dim objShell As Shell
Dim objFolder As Folder
Dim ssfWINDOWS As Long
ssfWINDOWS = 36
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfWINDOWS)
If (Not objFolder Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder.ParseName("system.ini")
If (Not objFolderItem Is Nothing) Then
objShell.AddToRecent (objFolderItem.Path)
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Requirements
| Requirement | Value |
|---|---|
| Minimum supported client |
Windows XP [desktop apps only] |
| Minimum supported server |
Windows Server 2003 [desktop apps only] |
| Header |
|
| IDL |
|
| DLL |
|