begin process at 2008 07 04 23:10:33
1 204 970 membres
486 nouveaux aujourd'hui
14 118 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :VBA Classé sous : vba, autocad, raccourcis, bureau Niveau : Initié Date de création : 20/01/2007 Date de mise à jour : 21/01/2007 10:28:13 Vu : 3 758

Note :
Aucune note

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

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

Source

  • 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
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.
21 janvier 2007 10:28:13 :
Suppression de la ligne Dim Var_longueur As Integer, Var_i As Integer Elle sert à rien.
  • signaler à un administrateur
    Commentaire de mortalino le 20/01/2007 22:26:23

    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.

    @++

  • signaler à un administrateur
    Commentaire de The Mailman le 21/01/2007 10:04:54

    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 à un administrateur
    Commentaire de leSaleGauSS le 04/02/2007 00:51:13

    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 à un administrateur
    Commentaire de jnm le 12/04/2007 12:10:06

    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

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS