'Déclaration, Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String) Const SHARD_PATH = &H2& 'Utilisation dans le code Call SHAddToRecentDocs(SHARD, "c:\monDoc.doc")
SHARD_PATH est un entier = 2 AppelDLL32("shell32.dll","SHAddToRecentDocs",SHARD_PATH,"c:\log.rtf")