Besoin d'aide pour supprimer des fichiers et pour la lecture du contenu de repertoire

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

28/04/2006, 14h39
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!
28/04/2006, 15h18
jmfmarques

Tu crois ?
Commences par rechercher (FAQ) !8O
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 !
28/04/2006, 15h45
Catbull

Citation:

Envoyé par Tyrael62

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.
28/04/2006, 19h17
SfJ5Rpw8

Citation:

Envoyé par 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!

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

Citation:

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.
29/04/2006, 10h49
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é.
29/04/2006, 11h20
ouskel'n'or

Citation:

Envoyé par Tyrael62

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

Bien gentils ceux qui continueront à t'aider :king:
29/04/2006, 11h21
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)
29/04/2006, 12h02
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 :

Citation:

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)
29/04/2006, 13h15
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!
29/04/2006, 13h16
Tyrael62

Leur extension est en ".URL"
29/04/2006, 13h21
AlainTech

Citation:

Envoyé par Tyrael62

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... :oops:

Bon !
je suis content d'apprendre cette nouvelle !
Une question quand-même : n'était-il pas plus facile et plus clair, pour lire et supprimer au besoin, d'utiliser Dir ?
Si tu en veux un exemple, tu verras à quel point c'est plus facile à comprendre, à mettre en oeuvre et.... à expliquer !
Dis-moi

EDIT :
Ouvres un petit projet et vois ce que fait celà, par exemple, en donnant bien sur à appi le chemin de tes liens :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Command1_Click() appi = "C:\Documents and Settings\marques.MARQUES-EUZXXHC\Favoris\Liens\" 'Liens myname = Dir(appi & "*.url*") Do While myname <> "" If myname <> "." And myname <> ".." Then MsgBox myname End If myname = Dir Loop End Sub
tu verras ce qu'il est largement possible d'en faire, y compris d'alimenter une listBox, si tu le veux !

29/04/2006, 13h31
Tyrael62

Oui jmfmarques , je veux bien voir un exemple mais le DIR , il me sert à quoi ici car si je me souviens de mes cours , on l'utilise pour vérifier l'existence d'un fichier.
29/04/2006, 13h32
jmfmarques

Déjà répondu : voir mon edit sur message précédent ;)

J'ai bien regardé ce que çà fait mais çà va me lire tous les liens de mon repertoire.Je te mets le code que j'utilise pour lire les liens des boutons de ma toolbar.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
i = 1
For Each objItem In colItems
 
If Button.Index = i Then
     GoTo suite
End If
i = i + 1
Next
suite:
 
Navigator.Navigate2 objItem.GetLink.Path

Tiens , pour un souci de clarté , je vais te mettre toutes les procédures intervenant de la création à la lecture des liens URL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
'Partie de code sur la feuille MDI
 
Private Sub Ajout_fav_Click()
i = 0
Do
  i = i + 1
Loop Until i <> Explorateur.Favoris_bar.Buttons.Count
 
Favoris_button = Explorateur.Favoris_bar.Buttons.Add(i, , Explorateur.Navigator.LocationName)
favoris_lien = "Raccourci vers " & Explorateur.Navigator.LocationName & ".Url"
nom_lien = Explorateur.Navigator.LocationURL
Call ecrire_raccourci_liens(favoris_lien, nom_lien)
 
End Sub
 
'Partie de code située dans un module
 
'---------------------------- Lire le répertoire Liens -------------------------------
 
Public Sub lire_Favoris()
 
Dim Favoris_button As Variant
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 = 1
For Each objItem In colItems
  Favoris_button = Explorateur.Favoris_bar.Buttons.Add(i, , objItem.Name)
i = i + 1
Next
 
End Sub
 
'--------------------------- Ecrire le Raccourci liens --------------------------------
 
Public Sub ecrire_raccourci_liens(favoris_lien, nom_lien As String)
 
Dim WSHShell, Shortcut As Object
 
Set WSHShell = CreateObject("WScript.Shell")
 
Set Shortcut = WSHShell.CreateShortcut(App.Path & "\Liens\" & favoris_lien)
 
With Shortcut
    .TargetPath = WSHShell.ExpandEnvironmentStrings(nom_lien)
End With
 
Shortcut.Save
 
Call lire_Favoris
 
End Sub

Là ou je dois intervenir c'est au niveau de la création pour éviter que le nom soit trop long sinon il me crée automatiquemen un lien de type fichier(sans extension)

29/04/2006, 14h01
jmfmarques

Oui ?
Alors : en ce qui concerne l'emploi de Dir, il te suffit de donner le chemin du répertoire où tu as "inscrit" ! Le principe reste exactement le même !
Tu peux même ajouter une condition : si dans toolbar sinon laisser tomber
tu peux enfin alimenter une liste de ce que tu as dans le toolbar puis travailler avec et, au besoin, reconstituer ta tollobar après une suppression éventuelle
mais bon... tu y es arrivé d'une autre façon, alors c'est bon ....

pour ce qui est des noms longs, laisse-moi regarder ...
à +
29/04/2006, 14h09
jmfmarques

Je vois mal le problème des noms longs
essayes de forcer la main en faisant entourer par des guillemets
par exemple :
& """ & machin_lien & """
si cela ne vas pas essayes """" au lieu de """, puis"'" (1 simple entre 2 doubles) puis '"' (un double entre 2 simples)
C'est peut-être celà !:cry:
29/04/2006, 14h25
Tyrael62

J'y pensais pour la longueur du nom , je peux retourner sa longueur et si cette longueur excede une longueur limite prédéfini alors la chaine s'arrete à cette longueur limite , ce qui pourrai résoudre mon problème qu'en pense tu?
29/04/2006, 14h52
jmfmarques

L'accfès au forum rame comme ce n'est pas possible ....

C'est certes une solution, mais elle n'est pas élégante, hélàs !
Essayes le coup des guillemets dans les guillemets !...

Voir 40 message(s) de cette discussion en une page