Click here to go to the new site
http://www.visiblevisual.com/jupgrade
Show/Hidden vbnet code
Option Explicit Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String) 'Add a document (file) to the Recent Document List Public Sub AddRecDocList(ByVal FileName As String) If Dir(FileName) Then SHAddToRecentDocs 2, FileName End If End Sub
E-mail (required, but will not display)
Website
Notify me of follow-up comments
Refresh