1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Récupérer les raccourcis du bureau (vba)

Récupérer les raccourcis du bureau (vba)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 799 fois - Téléchargée 22 fois

Commenter

Contenu du snippet

L'objectif de ce code est de récupérer les chemins complets de tous les raccourcis situé sur le bureau.

Source / Exemple : 


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

Conclusion :


Ce code à été développé en VBA pour Autocad.

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
1
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
12 avril 2007
Bonjour,
Il suffit modifier une ligne est le programme affiche tout, même les raccourcis qui pointent sur réseau.

For Each Var_Item In Obj_Folder.Items
If Var_Item.IsLink Then
Combo1.AddItem Var_Item.GetLink.Path & ""
End If
Next
Signaler
Messages postés
148
Date d'inscription
samedi 4 novembre 2006
Statut
Membre
Dernière intervention
4 décembre 2008
Salut, si tu as besoin de plus d'info je te conseile de jeter un coup d'oeil à ça :
http://www.vbfrance.com/infomsg_SUPPRESSION-ICONE-SUR-BUREAU_841388.aspx#4
Signaler
Messages postés
4
Date d'inscription
samedi 20 janvier 2007
Statut
Membre
Dernière intervention
11 juin 2008
Désolé, le but premier de ce code est de récupérer les raccourcis "répertoires" uniquement. Je n'ai pas testé d'autres applications.
Signaler
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 17
Salut,

je viens de tester ton code, et je voudrais te faire part d'une chose : lorsque les cibles des raccourcis sont situés sur un (ou des) lecteur réseau, beh le résultat ne s'affiche pas.

@++
S'inscrire maintenant

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.

Du même auteur (cs_The Mailman)