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

21 janvier 2007 10:28:13 :

Suppression de la ligne Dim Var_longueur As Integer, Var_i As Integer Elle sert à rien.

• IMPRESSIONS AUTOMATIQUE LISTE DE FICHIERS AUTOCAD
• EXPLORATEUR DE FICHIERS VBA (LE DRIVE+DIR+FILELISTBOX DU VB)
• RÉCUPÉRER LES LECTEURS D'UN PC EN VBA. (LE DRIVELISTBOX DU VB)

• COMMENT DESSINER UN GRAPHE ORIENTE BY CHIHAOUI CAD UN GRAPHE QUI CONTIENT DES FLÈCHES ET NON PAS DES ARCS
• LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS
• CALCUL DE MORTIER ET BETON
• GESTION DES BONS DE LIVRAISON
• GESTION DE STOCK

• LE DÉFLÈCHEUR
• SUPPRIMER UN RACCOURCI DU BUREAU ET/OU DU MENU DÉMARRER
• IMPRESSIONS AUTOMATIQUE LISTE DE FICHIERS AUTOCAD
• EXPLORATEUR DE FICHIERS VBA (LE DRIVE+DIR+FILELISTBOX DU VB)
• RÉCUPÉRER LES LECTEURS D'UN PC EN VBA. (LE DRIVELISTBOX DU VB)