Jobs
Author: Waty Thierry Date Submitted: 3/30/1999 Category: Windows Operations Compatibility: VB 6,VB 5,VB 4/32 This code has been accessed 8858 times.
Email Yourself this snippet:
' #VBIDEUtils#************************************************************ ' * Programmer Name : Waty Thierry ' * Web Site : www.geocities.com/ResearchTriangle/6311/ ' * E-Mail : waty.thierry@usa.net ' * Date : 13/10/98 ' * Time : 10:24 ' * Module Name : Startup_Module ' * Module Filename : Startup.bas ' ********************************************************************** ' * Comments : ' * Edit documents list in the startup menu ' ********************************************************************** Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal PV As String)
Code
' #VBIDEUtils#************************************************************ ' * Programmer Name : Waty Thierry ' * Web Site : www.geocities.com/ResearchTriangle/6311/ ' * E-Mail : waty.thierry@usa.net ' * Date : 13/10/98 ' * Time : 10:24 ' * Module Name : Startup_Module ' * Module Filename : Startup.bas ' ********************************************************************** ' * Comments : ' * Edit documents list in the startup menu ' ********************************************************************** Private Sub Command1_Click() Dim sNewFile As String sNewFile="c:\newfile.file" Call SHAddToRecentDocs(2, sNewFile) End Sub
