Discussion :

[Tyrael62]

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

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 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!
Je vous remercie d'avance.a bientot

[Tyrael62]

J'ai réussi à supprimer les fichier de Type Fichier avec Total commander mais j'arrive toujours pas à lire le 3ème lien de mon repertoire!Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

[jmfmarques]

Tu crois ?
Commences par rechercher (FAQ) !
Le reste est tout juste adaptation à ton cas ...
Mais je n'ai pas l'intention de tout faire pour toi !
D'autres, peut-être ?
profites-en pour nous expliquer ce qu'est "un Fichier type Fichier" ! COMPRENDS PAS CE CHARABIA LA !

[Catbull]

Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

Merci, ca fait toujours plaisir de tomber sur de telles marques d'attention au grès de nos lectures forumesques.

Malheureusement les flatteries ne m'ont jamais incitées à donner un coup de main. je te souhaites néanmoins bonne chance dans ton entreprise.

[SfJ5Rpw8]

J'ai réussi à supprimer les fichier de Type Fichier avec Total commander mais j'arrive toujours pas à lire le 3ème lien de mon repertoire!Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

désolé je ne connaissai pas l'existence deces lignes :

Il me lit bien les 2 premiers liens de la premiere ligne ,mais arrivé au 3eme lien situé en 2eme ligne dans le repertoire ,

puis un fichier de type fichier ??

et ce fameux
If Button.Index = i ? d'ou il sort.

[Tyrael62]

Pour ce qui est du fichier de Type Fichier , c'est la première que je le rencontre , j'avais pas encore vu cela jusqu'à aujourd'hui!Mais en gros , dans mon répertoire Liens , une fois que je lisais le 3ème lien , il me transformer par exemple : "Raccourci vers Google" de type Raccourci Internet en "Raccourci vers Google" de Type Fichier qui devanait aussitôt un fichier inacessible , et impossible à supprimier ou à déplacer avec les méthodes standard.

Pour ce qui est de mon "If Button.Index = i Then" , il vient de ma Toolbar Favoris qui me permet d'ajouter dynamiquement un bouton de raccourci internet dans ma barre de favoris.C'est pour cela que j'en récupére l'index pour que si l'index du bouton correspond au numero de fichier parcouru alors il lance le lien associé à ce Fichier de raccourci.Et comme je le précisais précédemment , il me lance bien les 2 premiers liens qui se situe sur la premiere dans le repertoire et une fois qui passe à la seconde ligne , le navigateur plante et transforme mes fichiers.

ex : Repertoire Liens

1er lien : Raccourci vers google 2ème lien : Raccourci vers developpez

3eme lien : Raccourci vers ABC Tabs

Voici vite fait comment je vois l'organisation de mon répertoire Liens à mon écran,donc une fois qui passe à la ligne suivante et que je clique sur le lien il me génére cette erreur :"Run-time error '-2147024894(80070002)"
Automation error
Veuillez excuser mon arrogance de mon premier message mais çà fait 3 fois que je poste ce sujet pour ce problème et personne jusqu'à aujourd'hui ne m'avait répondu , je ne demande à ce que vous me donner le code tout fait car c'est pas la meilleure manière d'apprendre mais voilà je suis face à un problème que je ne puis résoudre de part mon inexpérience dans ce langage de programmation et que sincèrement cette méthode que j'utilise devrait me lire tout les raccourci de mon répertoire!J'avais pensais au début à une solution plus simpliste qui consistait à l'ajout de chaque favoris , de placer dans la description du bouton de la toolbar le lien du site pour pouvoir le lire ensuite dans cet évènement mais VB6 ne m'offre aucunement cette possibilité.

[ouskel'n'or]

Et à ce que je vois , vous êtes aussi incompétent que moi dans ce domaine!

Bien gentils ceux qui continueront à t'aider

[bhaal76]

pour faire cour, un type "fichier" est tout simplement un fichier sans extension ... (et il y a belle lurette que çà existe).

de plus, ton code me parrais suspect sous plusieur angle ...
tu as en paramètre un objet "button", donc tu connais son index, tu as une collection de lien (on va dire), mais tu fais tout de même une recherche (alors qu'il te suffirai de tester si button.index n'est pas supérieur a la taille de ta collection, et si ce n'est pas le cas, Navigator.Navigate2 colItems(Button.Index).GetLink.Path
enfin, tu fais un parcours qui ne s'arrête pas même si le lien a été trouvé

toutefois, je ne voit rien dans ton code qui puisse modifié l'extension du fichier, execpté si l'objet "navigator" le fais tout seul sur une erreur lors d'un Navigator.Navigate2 ...

excuse accepté (difficilement quand même)

[jmfmarques]

Bonjour Tyrael !

Je vais essayer de t'aider cet après-midi, mais dois déjà te poser quelques questions .
Je relis tout depuis le début d'abord.
N'interviens pas pour ne pas alourdir ce sujet, STP !
1) quand tu dis :

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.

Je suppose que ton 1et problème est la lecture de tout le répertoire, n'est pas ?
Ce répertoire est-il composé uniquement de fichiers ? Quelle est leur extension ? Toujours la même ?
A toi pour cette 1ère question (j'attends ta réponse)

[Tyrael62]

J'ai trouvé l'erreur , je vous avez pas mis à disposition la procédure de création du fichier , c'est de là que viens l'erreur!En faite , j'ai procédé à divers test pour me rendre compte que lors de l'écriture du raccourci internet , si le nom de ce fichier était trop long , il lui affecte aucune extension et ce fichier est illisible!Je pense que pour palier à ce problème , je devrais m'en sortir!Merci pour ton aide , j'ai remanier le code de manière plus cohérente même si çà fonctionner , çà sera plus clair et plus logique à expliquer si je passe sur cette PTI le jour de l'oral!

[AlainTech]

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.

Personnellement, j'ai bien du mal à comprendre cette phrase.
Tu arrives à mettre 2 liens sur une ligne dans un répertoire???
Pour moi, dans un répertoire, il n'y a que des fichiers. Aucune notion de ligne...
Accessoirement, les fichiers Liens ont une extension .url.

Es-tu certain que la simple lecture d'un fichier lui change (supprime) son extension?
As-tu fait une verification du contenu de ton répertoire (en mode DOS) en faisant tourner ton programme en pas à pas?

Edit --> Oups, j'arrive après la bataille...