Créer le raccourci de l'application sur le bureau
Contenu du snippet
Option Explicit
'Ajoutez la référence Windows Script Host Object Model (wshom.ocx) à votre projet.
Private Sub CreateShortCutOnDeskTop()
Dim Wsh As New WshShell
Dim DesktopPath As String
Dim FileName As String
Dim Shortcut As Variant
DesktopPath = Wsh.SpecialFolders("Desktop")
FileName = DesktopPath & "\MonAppli.lnk"
If FileExist(FileName) = False Then
Set Shortcut = Wsh.CreateShortcut(FileName)
With Shortcut
.TargetPath = App.Path & "\" & App.EXEName
.Description = "Mon Programme"
.WindowStyle = 4
.Save
End With
End If
End Sub
Private Function FileExist(ByRef inFile As String) As Boolean
'Fonction provenant de EDais (edais.mvps.org)
On Error Resume Next
Let FileExist = CBool(FileLen(inFile) + 1)
End Function
Compatibilité : VB6
Disponible dans d'autres langages :
A voir également
- Créer le raccourci de l'application sur le bureau
- Créer interface application - Conseils pratiques -Graphisme
- Creer application webradio - Forum VB.NET
- Comment créer une application android - Forum VB.NET
- Comment creer une application de geolocalisation ✓ - Forum Java
- Application de loto turbo 2 - Forum C / C++ / C++.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.