son açılan dosyaları temizle

[levo26]

Merhaba,
Aşağıdaki kodlar ile 2003 versiyonunda son açılan dosyaları temizleyebiliyordum. 2007'de nasıl yapabilirim?

Public Const SHARD_PIDL = &H1&
Public Const SHARD_PATH = &H2&
Public Declare Function SHAddToRecentDocs Lib _
"shell32.dll" (ByVal dwFlags As Long, ByVal _
dwData As String) As Long
Sub Temizle()
Dim R As Long
Dim shFlag As Long
Dim shData As String
shFlag = SHARD_PATH
shData = vbNullString
R = SHAddToRecentDocs(shFlag, shData)
End Sub

 

[Muzaffer Ali]

Merhaba

Sub SonAcilanDosyalariTemizle()
    On Error Resume Next
    Do Until err.Number <> 0
        Application.RecentFiles.Item(1).Delete
    Loop
End Sub

 

[levo26]

Teşekkürler.