Auto start

[DB9633]

i have an address book that i want to load everytime i start my PC (i dont want to see it in the system tray however). So i just sits silenty running in the background unseen unheard how can i do that???

[DB9633]

wait will just putting it in the windows start folder do it??? if that does it haha awesome i am a dumbass but is there a way u can add it using code and have the app be in like My Documents??

[JamesM]

This gets the path to documents, then just add a file here to add to start-->documents.

Option Explicit
 
Private Declare Function SHGetFolderPath Lib "shfolder" Alias "SHGetFolderPathA" (ByVal hwndOwner As Long, ByVal nFolder As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long
Private Const CSIDL_RECENT As Long = &H8 ' <user name>\Recent
 
 
Private Sub Command1_Click()
MsgBox RetrievePath(CSIDL_RECENT)
End Sub
 
 
Private Function RetrievePath(ByVal SpecialFolder$)
Dim Path$
 
Path = String(260, 0)
'Path must have a length, and 260 is large enough to contain any path
 
SHGetFolderPath 0, SpecialFolder, 0, 0, Path
 
RetrievePath = Path
'The path variable will now hold the path to the history folder for the current user.
 
End Function