Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 958 fois - Téléchargée 24 fois
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
12 avril 2007 à 12:10
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
4 févr. 2007 à 00:51
http://www.vbfrance.com/infomsg_SUPPRESSION-ICONE-SUR-BUREAU_841388.aspx#4
21 janv. 2007 à 10:04
20 janv. 2007 à 22:26
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.
@++
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.