Application Location

[rotcrules]

Does anyone know how to get the location of the Application?
What I am trying to do is to make the app run every time windows starts. I already have all of the info of how to put it into the registry but I need to know where the application is.

I was thinking maby get the location from the properties of the *.exe or something along that line.

Thank You

[TheFIDDLER]

Can we have more details? What application are we talking about?

Are we talking about an MS Office component, or a custom exe file.

Using the StartUp Menu would seem kind of obvious....

Conceivably, if you can open the application, you can just cut and paste this shortcut to the startup folder.

Or do you want to code this as part of your setup.exe process?

[alex_read]

I'm guessing you want to run this from within your application itself.

If this is a vb project, you can use the app.path statement to retreive the current location of the exe.

If this is an MsOffice application, you can call upon the application.path statement to do the same thing.

[lachspieren]

do you have a command to find your driveletter?

as C, D etc.

[RobDog888]

The Application.Path will contain the drive letter in the path if that
is what you mean. Or do you mean find all drive letters on your
system?

[lachspieren]

I mean the drive letter from your harddisk.

?:\windows\

where ? is your driveletter, but i dont know the function.

(My English is not good, sorry)

[RobDog888]

Here is an example to return all your drive letters.
Reqs.
1 textbox set to multi-line (txtAllDrives)
2 command buttons (cmdGetDrives and cmdClose)
Option Explicit

Private Const DRIVE_UNKNOWN = 0
Private Const DRIVE_ABSENT = 1
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6
' returns errors for UNC Path
Private Const ERROR_BAD_DEVICE = 1200&
Private Const ERROR_CONNECTION_UNAVAIL = 1201&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_NOT_SUPPORTED = 50&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Private Const ERROR_NO_NETWORK = 1222&
Private Const ERROR_NOT_CONNECTED = 2250&
Private Const NO_ERROR = 0

Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, _
ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Function fGetDrives() As String
'Returns all mapped drives
Dim lngRet As Long
Dim strDrives As String * 255
Dim lngTmp As Long
lngTmp = Len(strDrives)
lngRet = GetLogicalDriveStrings(lngTmp, strDrives)
fGetDrives = Left(strDrives, lngRet)
End Function

Private Function fGetUNCPath(strDriveLetter As String) As String

On Local Error GoTo fGetUNCPath_Err

Dim Msg As String, lngReturn As Long
Dim lpszLocalName As String
Dim lpszRemoteName As String
Dim cbRemoteName As Long
lpszLocalName = strDriveLetter
lpszRemoteName = String$(255, Chr$(32))
cbRemoteName = Len(lpszRemoteName)
lngReturn = WNetGetConnection(lpszLocalName, lpszRemoteName, cbRemoteName)
Select Case lngReturn
Case ERROR_BAD_DEVICE
Msg = "Error: Bad Device"
Case ERROR_CONNECTION_UNAVAIL
Msg = "Error: Connection Un-Available"
Case ERROR_EXTENDED_ERROR
Msg = "Error: Extended Error"
Case ERROR_MORE_DATA
Msg = "Error: More Data"
Case ERROR_NOT_SUPPORTED
Msg = "Error: Feature not Supported"
Case ERROR_NO_NET_OR_BAD_PATH
Msg = "Error: No Network Available or Bad Path"
Case ERROR_NO_NETWORK
Msg = "Error: No Network Available"
Case ERROR_NOT_CONNECTED
Msg = "Error: Not Connected"
Case NO_ERROR
' all is successful...
End Select
If Len(Msg) Then
MsgBox Msg, vbInformation
Else
fGetUNCPath = Left$(lpszRemoteName, cbRemoteName)
End If

fGetUNCPath_End:
Exit Function

fGetUNCPath_Err:
MsgBox Err.Description, vbInformation
Resume fGetUNCPath_End

End Function

Private Function fDriveType(strDriveName As String) As String

Dim lngRet As Long
Dim strDrive As String

lngRet = GetDriveType(strDriveName)
Select Case lngRet
Case DRIVE_UNKNOWN 'The drive type cannot be determined.
strDrive = "Unknown Drive Type"
Case DRIVE_ABSENT 'The root directory does not exist.
strDrive = "Drive does not exist"
Case DRIVE_REMOVABLE 'The drive can be removed from the drive.
strDrive = "Removable Media"
Case DRIVE_FIXED 'The disk cannot be removed from the drive.
strDrive = "Fixed Drive"
Case DRIVE_REMOTE 'The drive is a remote (network) drive.
strDrive = "Network Drive"
Case DRIVE_CDROM 'The drive is a CD-ROM drive.
strDrive = "CD Rom"
Case DRIVE_RAMDISK 'The drive is a RAM disk.
strDrive = "Ram Disk"
End Select
fDriveType = strDrive

End Function

Sub sListAllDrives()

Dim strAllDrives As String
Dim strTmp As String

strAllDrives = fGetDrives
If strAllDrives <> "" Then
Do
strTmp = Mid$(strAllDrives, 1, InStr(strAllDrives, vbNullChar) - 1)
strAllDrives = Mid$(strAllDrives, InStr(strAllDrives, vbNullChar) + 1)
Select Case fDriveType(strTmp)
Case "Removable Media":
txtAllDrives = txtAllDrives & "Removable drive : " & strTmp & vbNewLine
Case "CD Rom":
txtAllDrives = txtAllDrives & " CD Rom drive : " & strTmp & vbNewLine
Case "Fixed Drive":
txtAllDrives = txtAllDrives & " Local drive : " & strTmp & vbNewLine
Case "Network Drive":
txtAllDrives = txtAllDrives & " Network drive : " & strTmp & vbNewLine
txtAllDrives = txtAllDrives & " UNC Path : " & _
fGetUNCPath(Left$(strTmp, Len(strTmp) - 1)) & vbNewLine
End Select
Loop While strAllDrives <> ""
End If
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdGetDrives_Click()
txtAllDrives = "All available drives: " & vbNewLine & vbNewLine
sListAllDrives
End Sub

[RobDog888]

Or maybe if you were asking to get the path to the windows folder...
?:\windows\
Option Explicit

Private Declare Function GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()

Dim lWinPath As Long
Dim sBuffer As String * 255
Dim sPath As String

lWinPath = GetWindowsDirectory(sBuffer, 255)
sPath = Left$(sBuffer, lWinPath)
MsgBox "Windows directory = " & sPath, vbOKOnly + vbInformation

End Sub