Discussion :

[Guillaume15]

Bonsoir à tous,
Je suis nouveau sur le forum, mais pas en vb net, à part les objets dur à manipuler, tel les TreeView.

J'ai une question que je n'arrive pas à résoudre depuis un bon moment :
Comment avoir le path d'un ou des dossiers sélectionnés dans une TreeView1 ?

De plus, j'aimerais que lorsque le ou es dossiers sont sélectionnées, l'utilisateur appui sur un bouton, et l'image se trouvant dans ma PictureBox1 se déplace (de sa source vers l'emplacement des paths des /du dossiers sélectionner).
UN GRAND Merci pour ceux qui m'aideront à résoudre ce mystère ! :p
J'y ai consacréer énormément de temps sur ce problème mais, impossible de trouver la solution !
Merci d'avance pour toutes vos futures réponses !

Cordialement,
Guillaume

[guatto]

Bonjour Guillaume15,

je n'ai jamais travaillé avec le TreeView mais je crois que ce lien pourrait très bien t'aider il traite ton 1er problème (la récupération du dossier sélectionné)

http://www.vbdotnetforums.com/listvi...-treeview.html

Pour l'image de ta PictureBox il suffit de stocker le Path récupéré précédemment dans une var String, et de récupérer le Path de ton image que tu dois obligatoirement au préalable, sinon tu peux le récupérer comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
PictureBox1.Load("lien_vers_ton_image")
Dim path_image As String = PictureBox1.ImageLocation
Dim nom As String = Path.GetFileName(props)

ensuite passer au déplacement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
// le path stocké
Dim path_repertoire As String = ""
My.Computer.FileSystem.MoveFile(path_image, path_repertoire & "\"  & nom)

j'espère que ça pourra t'aider, bonne chance !

[Guillaume15]

Bonsoir guatto,
Merci de m'avoir répondu, mais le lien ne me correspond pas car, le code est faux. Merci pour le reste en tout cas !

[wallace1]

Bonsoir,

Bonsoir guatto,
Merci de m'avoir répondu, mais le lien ne me correspond pas car, le code est faux. Merci pour le reste en tout cas !

C'est vraiment irritant de lire des choses pareilles.... Le code n'est pas faux, tu ne sais tout simplement pas l'adapter à tes besoins !!!

Breffff.......

Avant toute chose, il faudrait déjà savoir comment tu créés tes noeuds car c'est lorsque tu les créés dynamiquement que tu dois affecter ce que tu veux à la propriété ".Tag" (de type Object) :
- un chemin de fichier, de dossier (de type String)
- une image (de type bitmap ou Image par exemple)
- une liste
- une instance.....
....etc....

Exemple :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
  'Le chemin racine pour la recherche de répertoires et fichiers
        Dim path As String = "C:\Windows\System32\fr-FR\Licenses"
 
        'On instancie un noeaud racine
        Dim rNode As New TreeNode(path)
        'On déplie automatiquement le noeud
        rNode.ExpandAll()
 
        'On boucle en recherchant tous les répertoires  
        For Each d In Directory.GetDirectories(path, "*", SearchOption.AllDirectories)
            'On retourne une instance DirectoryInfo pour faciliter la manipulation des noms de dossiers (complet ou partiel)
            Dim di As New DirectoryInfo(d)
 
            'On instancie un noeud qui affichera le nom court du répertoire en cours de traitement
            Dim dNode As New TreeNode(di.Name)
            'C'est ICI que l'on affecte le nom complet du répertoire à la propriété .Tag pour pouvoir l'utiliser plus tard dans le programme !!!
            dNode.Tag = di.FullName
            'On déplie automatiquement le noeud
            dNode.ExpandAll()
 
            'On parcours tous les fichiers contenus dans le répertoire en cours de traitement
            For Each f In di.GetFiles("*", SearchOption.AllDirectories)
                'On instancie un noeud qui affichera le nom court du fichier en cours de traitement
                Dim fNode As New TreeNode(f.Name)
                'C'est ICI que l'on affecte le nom complet du fichier à la propriété .Tag pour pouvoir l'utiliser plus tard dans le programme !!!
                fNode.Tag = f.FullName
                'On déplie automatiquement le noeud
                fNode.ExpandAll()
                'On ajoute le noeud précédement créé (c'est un noeud fichier) au noeud dn répertoire en cours de traitement
                dNode.Nodes.Add(fNode)
            Next
            'On ajoute le noeud précédement créé (c'est un noeud répertoire) au noeud racine
            rNode.Nodes.Add(dNode)
        Next
        'On ajoute le noeud racine au Treeview
        TreeView1.Nodes.Add(rNode)
    End Sub

Il n y a ici rien de bien compliqué ! Programmer ne veut pas forcement dire taper des lignes de codes mais c'est avant tout savoir exprimer textuellement ce qu'on attends du programme par le biais de directives bien précises !!

Donc pour résumer :

---> Tu utilises le gestionnaire d’événement AfterSelect de ton Treeview afin de récupérer la valeur de la propriété Tag du noeud sélectionné (en te basant sur mon exemple plus haut) !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
   Private Sub Treeview1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles Treeview1.AfterSelect
   If not e.Node.Tag is nothing Then 
       Msgbox(e.Node.Tag)
   End If
   End Sub

---> Pour copier L'image de ta PictureBox vers le chemin du noeud sélectionné (rappel : e.Node.Tag) il te suffit de déclarer une variable de type String (SelectedPath as string) accessible depuis ta classe Form1 (où se situe ton treeview), puis tu affectes la valeur dans le gestionnaire dévènement ".AfterSelect" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
   Private SelectedPath$
   Private Sub Treeview1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles Treeview1.AfterSelect
   If not e.Node.Tag is nothing Then 
      SelectedPath = e.Node.Tag
   End If
   End Sub

Enfin dans le gestionnaire Click de ton button1, tu vérifies qu'il existe bien une image dans ta PictureBox et que le chemin de la variable SelectedPath existe bel et bien et enfin tu lances la copie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
PictureBox1.Image.Save(SelectedPath .....)

PS: attention à bien prendre en compte le type et l'extension de l'image sinon tu risques fort de rencontrer des soucis !!!


A+

[Guillaume15]

Salut,
Désolé de ne pas avoir répondu avant.
Merci pour l'aide !
Et, oui je n'arrivais pas a me servir du code proposé.
Pour votre code, j'ai essayé de mettre une autre racine, mais ça ne fonctionne pas.
Je voudrais mettre "C:\" à la place de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    'Le chemin racine pour la recherche de répertoires et fichiers
    Dim path As String = "C:\Windows\System32\fr-FR\Licenses"

Mais, impossible !
Pouvez-vous me dire pourquoi c'est impossible ?Je trouve cela étrange !
Cordialement,
Guillaume

[wallace1]

Bonsoir,

Allez je vais être bon prince :

Si tu parcours C:\ à la recherche de répertoires il est fort probable qu'un répertoire du type "C:\Documents and Settings" ne soit pas accessible en lecture du fait de ses restrictions au niveau des droits !

A toi de prévoir un scénario adequate de manière à exclure cela.

A+

[ebastien]

Bonjour,

Juste une remarque en passant : Faire Directory.GetDirectories sur le repertoire racine (C:\) en incluant toute l'arborescence des sous-dossiers risque de prendre des siècles. Il serait plutôt préférable de lire les dossiers enfants uniquement au moment de l'expand d'un node selectionné. De plus la méthode indiquée par wallace1 est bonne mais elle crée un noeud racine sous lequel on trouvera toute l'arborescence des sous-dossiers et pour chaque dossier et sous-dossier on va lire tous les fichiers qu'il contient en incluant les sous-dossiers (). Donc aussi bien pour le GetDirectories que pour le GetFiles, ne lire que le répertoire actif et non pas tous les sous-répertoires et répéter l'opération uniquement à la sélection d'un dossier ou sous-dossier.

[wallace1]

@ebastien : je suis tout à fait d'accord avec toi ..... mais honnêtement en l'état Guillaume15 n'a pas l'air d'y voir clair alors c'est en ce sens que je ne vais pas plus loin dans le raisonnement.