Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 08:35:58

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

BLOCAGE SOUS VBA par Potard

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par Renfield

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

+ de logiciels à télécharger

1 329 737 membres
84 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 805 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

RECUPERER LA CIBLE D'UN FICHIER RACCOURCI

Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 16/02/2004 Date de mise à jour : 16/02/2004 18:44:04 Vu : 1 820

Auteur : Swinger

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Un petit exemple de source que j'ai désespérement cherché. Je sais qu'il existe, sur le site, un autre exemple qui utilise le WScript avec un CreateObject (méthode qui ne me plait pas).
Pour pouvoir l'utiliser, ajouter la référence à "Microsoft Shell Controls and Automation".
Cet exemple n'est pas parfait (pas de contrôle de l'existance des fichiers, etc...), mais il montre comment utiliser ces objets.

Pour faire fonctionner l'exemple, mettez un raccourci dans "C:\".

Bonne prog à tous

Source

Dim MonShell_obj As New Shell
Dim ElementDuRepertoire_obj As FolderItem
Dim MonRaccourci_obj As ShellLinkObject
Dim Repertoire_obj As Shell32.Folder
' Remplacer la ligne ci-dessous par votre fichier raccourci
Const CHEMIN_RACCOURCI_str = "c:"
' Récupération du répertoire
Set Repertoire_obj = MonShell_obj.NameSpace(CHEMIN_RACCOURCI_str)
' Controle de tout les éléments se trouvant dans le répertoire du raccourci
For Each ElementDuRepertoire_obj In Repertoire_obj.Items
If ElementDuRepertoire_obj.IsLink Then
Set MonRaccourci_obj = ElementDuRepertoire_obj.GetLink
Debug.Print MonRaccourci_obj.Path
End If
Next

Dim MonShell_obj As New Shell
Dim ElementDuRepertoire_obj As FolderItem
Dim MonRaccourci_obj As ShellLinkObject
Dim Repertoire_obj As Shell32.Folder

' Remplacer la ligne ci-dessous par votre fichier raccourci
Const CHEMIN_RACCOURCI_str = "c:"

' Récupération du répertoire
Set Repertoire_obj = MonShell_obj.NameSpace(CHEMIN_RACCOURCI_str)

' Controle de tout les éléments se trouvant dans le répertoire du raccourci
For Each ElementDuRepertoire_obj In Repertoire_obj.Items
    If ElementDuRepertoire_obj.IsLink Then
        Set MonRaccourci_obj = ElementDuRepertoire_obj.GetLink
        Debug.Print MonRaccourci_obj.Path
    End If
Next