Bonjour ,
Je développe un navigateur web avec les fonctionnalités les plus courantes dont l'ajout de Favoris.Cette partie là est bien réalisé,les liens des favoris s'ajoute bien dans mon repertoire Liens,mais le hic intervient quand je lis mes liens dans ce dit repertoire!Il me lit bien les 2 premiers liens de la premiere ligne ,mais arrivé au 3eme lien situé en 2eme ligne dans le repertoire , il me génére une erreur lors de sa lecture et me le transforme en fichier de type Fichier que je ne peux supprimer ensuite.
Voici la partie de code correspondante à la lecture des liens dans le répertoire
Je comprends pas pourquoi il plante a ce niveau , j'ai vraiment besoin d'aide car là je vois pas trop ce que je peux faire de plus!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Private Sub Favoris_bar_ButtonClick(ByVal Button As MSComctlLib.Button) Dim objShell As Shell32.Shell Dim objFolder As Shell32.Folder Dim colItems As Shell32.FolderItems Dim objItem As Shell32.FolderItem Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(App.Path & "\Liens") Set colItems = objFolder.Items i = 0 For Each objItem In colItems i = i + 1 If Button.Index = i Then Navigator.Navigate2 objItem.GetLink.Path End If Next End Sub
Je vous remercie d'avance.a bientot
Partager