Search Tools Links Login

Make Your Program Start Up When You Reboot

This is to make your program start up when you reboot your computer just like other programs you see do. **Must See** Please Vote for me!

Original Author: W??k??_W?????


Just put this code in the form of your program.


Private Sub Form_Load()
Dim strDir As String
Dim intDir As Integer
Dim strpath As String
intDir = Len(CurDir()) 'Gets length of Current directory
'Gets last character from CurDir() and checks if it's a
strDir = Mid(CurDir(), intDir)
If strDir = "" Then
strpath = CurDir() & App.EXEName & ".exe"
'If is in main drive like C: or D: it simply
'puts the file name, "C:Blah.exe"
strpath = CurDir() & "" & App.EXEName & ".exe"
'If CurDir() returns no then its in a folder
'and will necessitate a inserted so that it looks like
'C:FolderBlah.exe and NOT like C:FolderBlah.exe
End If
On Error GoTo Death
'Error statement allows this code to run if it is already
'in the Start Menu
FileCopy strpath, _
"C:WINDOWSStart MenuProgramsStartUp" _
& App.EXEName & ".exe"
Exit Sub
Resume Next
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 79 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.