Programming Forums - View Single Post - i need an application to create a shortcut to itself

Rory · Jul 8th, 2005, 8:33 PM

Well, if you add this function somewhere:

' Ensures hString ends in hSuffix

Public Function eSuffix(ByVal hString As String, ByVal hSuffix As String) As String
    If StrComp(Right(hString, Len(hSuffix)), hSuffix, vbTextCompare) Then
        eSuffix = hString & hSuffix
    Else
        eSuffix = hString
    End If
End Function

Then the containing folder of the application is guaranteed to be:

(Toggle Plain Text)

eSuffix(App.Path, "\")

The filename:

(Toggle Plain Text)

eSuffix(App.EXEName, ".exe")

And so the full path is obviously:

(Toggle Plain Text)

eSuffix(App.Path, "\") & eSuffix(App.EXEName, ".exe")

How are you checking to see if the shortcut already exists?

Jul 8th, 2005, 8:33 PM	#2
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	Well, if you add this function somewhere: (Toggle Plain Text) ' Ensures hString ends in hSuffix Public Function eSuffix(ByVal hString As String, ByVal hSuffix As String) As String If StrComp(Right(hString, Len(hSuffix)), hSuffix, vbTextCompare) Then eSuffix = hString & hSuffix Else eSuffix = hString End If End Function ' Ensures hString ends in hSuffix Public Function eSuffix(ByVal hString As String, ByVal hSuffix As String) As String If StrComp(Right(hString, Len(hSuffix)), hSuffix, vbTextCompare) Then eSuffix = hString & hSuffix Else eSuffix = hString End If End Function Then the containing folder of the application is guaranteed to be: (Toggle Plain Text) eSuffix(App.Path, "\") eSuffix(App.Path, "\") The filename: (Toggle Plain Text) eSuffix(App.EXEName, ".exe") eSuffix(App.EXEName, ".exe") And so the full path is obviously: (Toggle Plain Text) eSuffix(App.Path, "\") & eSuffix(App.EXEName, ".exe") eSuffix(App.Path, "\") & eSuffix(App.EXEName, ".exe") How are you checking to see if the shortcut already exists?