add a file to recent docs list
add a file to recent docs list
'add a file to recent docs list
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)
Public Sub AddtoRecentDocs(ByVal FileName As String)
If Dir(FileName) Then
SHAddToRecentDocs 2, FileName
End If
End Sub
Clickbank mall, make money
sell software, make money
Hosted magazine site : make money with no website
|