RÉCUPÉRER LES RACCOURCIS DU BUREAU (VBA)

Sub Prog_recherche_raccourcis_bureau()
  
  'Script affichant le nom des raccourcis du bureau
  Obj_Folder = ""
  Obj_Shell = ""
  Obj_Folder_Item = ""
  Var_Item = ""
  
  Const Var_cible = &H10 'Objets du bureau
  Set Obj_Shell = CreateObject("Shell.Application")
  Set Obj_Folder = Obj_Shell.NameSpace(Var_cible)
  
  For Each Var_Item In Obj_Folder.Items
    If Var_Item.IsLink Then
    'Regarde si le caractère "." est présent dans le raccourci
    'Si oui il s'agit d'un fichier d'exécution
    'Si non par déduction il ne peut s'agir que de raccourcis qui pointent sur des répertoires
      If InStr(Var_Item.GetLink.Path, ".") Then
        'Ne rien faire
      Else
        'Ajouter dans une Combobox les raccourcis répertoires trouvés.
        ComboBox1.AddItem Var_Item.GetLink.Path & "\"
      End If
    End If
  Next
  
  Set Obj_Folder_Item = Nothing
  Set Obj_Shell = Nothing
  Set Obj_Folder = Nothing

End Sub