Créer le raccourci de l'application sur le bureau
Soyez le premier à donner votre avis sur cette source.
Snippet vu 36 477 fois - Téléchargée 9 fois
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
- Creer une application android - Forum VB.NET
- Créer une application java - Conseils pratiques -Java
- Créer interface application - Conseils pratiques -Graphisme
- Erreur du serveur dans l'application '/'. ✓ - Forum ASP.NET
- Comment creer une application de geolocalisation ✓ - Forum Java
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.