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

        var Shl = new ActiveXObject("WScript.Shell");
        var Dsk = Shl.SpecialFolders("Desktop");
        var lnk = Shl.CreateShortcut(Dsk + "\\nom du raccourci.lnk" );
        lnk.TargetPath = "adresse de l'exécutable";
        // lnk.IconLocation = "adresse du fichier des icônes,indice icône à utiliser";
        lnk.Save();

private static string desktop = Environment.GetFolderPath(Environment.SpecialFolder.Desktop); 
private static string fileName = "Calc.lnk";

private static void Main(string[] args) 
{
   WshShell shell = new WshShell();
   IWshShortcut link = (IWshShortcut)shell.CreateShortcut(Path.Combine(desktop, fileName));
   link.TargetPath = @"C:\WINDOWS\system32\calc.exe";
   link.Save();
}

// Crée le raccourci "Test" du  programme "C:\Test\Test.exe"
// sur le bureau, avec Ctrl-Alt-A comme  raccourci clavier
CréeRaccourci(RaccourciBureau, "Test", "C:\Test\Test.exe", "", sfaNormal, "A")

uses ComObj, ActiveX, ShlObj;
function CreateShortCutOnDeskTop(const FileName, scLabel: string): Boolean;
var
  AnObj    : IUnknown;
  ShLink   : IShellLink;
  PFile    : IPersistFile;
  LinkName : WideString;
  SFolder  : pItemIDList;
  DeskTop  : array[0..MAX_PATH] of Char;
  Target   : string;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, SFolder);
  SHGetPathFromIDList(SFolder, DeskTop);
  Target := Concat(StrPas(DeskTop), '\');
  AnObj  := CreateComObject(CLSID_ShellLink);
  ShLink := AnObj as IShellLink;
  PFile  := AnObj as IPersistFile;
  ShLink.SetPath(PChar(FileName));
  ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  LinkName := ChangeFileExt(scLabel, '.lnk');
  Result := (PFile.Save(PWChar(Target + LinkName), False) = S_OK);
end;

 '   Création du raccourci sur le bureau
'   Demande l'ajout de la référence wshom.ocx depuis Winnt\System32
Dim Bureau As IWshRuntimeLibrary.WshShell
Dim Raccourci As IWshRuntimeLibrary.WshShortcut
Dim VarTrav As String
Bureau = New IWshRuntimeLibrary.WshShell
'   Chemin et nom du raccourci
VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Saisie listes VB.lnk"
Raccourci = Bureau.CreateShortcut(VarTrav)
'   Cible
Raccourci.TargetPath = "D:\SaisieListes\SaisieListes.exe"
'   Icône
Raccourci.IconLocation = "D:\SaisieListes\INI\BarreAcierS500.ico"
'    Enregistrement
Raccourci.Save()

'utilise Windows Scripting Host Model
'autres propriétés accessibles:

'    oShellLink.Hotkey (ex : = "CTRL+SHIFT+F")

'    oShellLink.IconLocation (ex : = "notepad.exe, 0")

'    oShellLink.Description (ex = "Raccourci classeur Excel")

'    oShellLink.WorkingDirectory (ex = strDesktop)


Sub CreerRaccourci(CheminCible)
    Set WSHShell = CreateObject("WScript.Shell")
    strDesktop = WSHShell.SpecialFolders("Desktop")
    Set oShellLink = WSHShell.CreateShortcut(strDesktop & "\ Raccourci classeur Excel.lnk")
    oShellLink.TargetPath = CheminCible
    oShellLink.Description = "Calcul Mental"
    oShellLink.WindowStyle = 1

    oShellLink.Save

End Sub

 

'Activer
Sub TestRaccourci()
    'On cherche le fichier
    CreerRaccourci (ActiveWorkbook.Path & "\" & " Raccourci classeur Excel " & ".xls")
End Sub

 

'Supprimer
Sub DeleteRaccourci()
    Set WSHShell = CreateObject("WScript.Shell")

    BureauPath = WSHShell.SpecialFolders("Desktop")


    'pour supprimer un raccourci du bureau
    Kill (BureauPath & "\ Raccourci classeur Excel.lnk")
End Sub