VB6 Code - Menambahkan File Ke Recent Document

Di bawah ini merupakan fungsi VB6 (API) untuk menambahkan file ke recent document. Untuk keperluan ini digunakan satu fungsi API yakni SHAddToRecentDocs yang terdapat pada shell32.dll.

Option Explicit

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)

Public Function AddToRecentDocument(FileName As String)
  Call SHAddToRecentDocs(3, FileName)
End Function

Cara menggunakan fungsi VB6 di atas:

Private Sub Command1_Click()
    AddToRecentDocument "C:\boot.ini"
End Sub