Copie de fichiers .exe via des Treeviews

    Private Sub btn_Transfert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
        Dim Node As System.Windows.Forms.TreeNode
        Try
            For Each Node In tView_Serveur.SelectedNode
                tView_Temporaire.FileCopy("Z:\Dossier\Sous dossier\Sous sous dossier\".fichier récupéré, "%system root%\temp")

            Next
        Catch erreur As Exception
            MessageBox.Show("Copie échoué. " & erreur.GetBaseException.Message)
        End Try
    End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        MsgBox(e.Node.FullPath)
End Sub

Imports System.IO
Imports System
Imports System.Net
Imports System.Windows
Imports System.Collections
Imports System.Object
Imports System.MarshalByRefObject
Imports System.Windows.Forms.TreeNode


Public Class Form_Principale

    Const Source As String = "Z:\tech\!  Softhèque\! PackSofts"
    Const Destination As String = "C:\WINDOWS\Temp"

    Private Sub Form_Principale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '--------------------------------------------------------------------------------------------------------
        '------------------------------ TRAITEMENT TREEVIEW POUR LE COTE SERVEUR --------------------------------
        '--------------------------------------------------------------------------------------------------------
        'Définit le premier noeud
        Me.tView_Serveur.TopNode = Me.tView_Serveur.Nodes.Add(Source, Source)

        'Arborescence du premier noeud
        For Each Dossier As String In Directory.GetDirectories(Source)
            Me.tView_Serveur.TopNode.Nodes.Add(Dossier, Path.GetFileName(Dossier))
            'Récursif
            ListeArborescenceDossier(Dossier, Me.tView_Serveur.TopNode)
        Next
        'Fichiers du premier noeud
        For Each Fichier As String In Directory.GetFiles(Source)
            Me.tView_Serveur.TopNode.Nodes.Add(Path.GetFileName(Fichier))
        Next

        '--------------------------------------------------------------------------------------------------------
        '--------------------------- TRAITEMENT TREEVIEW POUR LE COTE DOSSIER TEMPORAIRE ------------------------
        '--------------------------------------------------------------------------------------------------------
        'Définit le premier noeud
        Me.tView_Temporaire.TopNode = Me.tView_Temporaire.Nodes.Add(Destination, Destination)

        'Arborescence du premier noeud
        For Each Dossier As String In Directory.GetDirectories(Destination)
            Me.tView_Temporaire.TopNode.Nodes.Add(Dossier, Path.GetFileName(Dossier))
            'Récursif
            ListeArborescenceDossier(Dossier, Me.tView_Temporaire.TopNode)
        Next
        'Fichiers du premier noeud
        For Each Fichier As String In Directory.GetFiles(Destination)
            Me.tView_Temporaire.TopNode.Nodes.Add(Path.GetFileName(Fichier))
        Next

        '--------------------------------------------------------------------------------------------------------
        '----------------------------------- TRAITEMENT FICHIERS .EXE ET .MSI -----------------------------------
        '--------------------------------------------------------------------------------------------------------
        ' /!\ Partie modifié /!\
        Try
            Dim node As TreeNode
            node.SelectAction = TreeNodeSelectAction.Select
            If File.Exists("Fichier .exe") Then
                tView_Serveur.SelectedNode.Text
                CopierFichier()
            End If
        Catch erreur As Exception
            MessageBox.Show("Copie échoué. " & erreur.GetBaseException.Message)
        End Try

    End Sub

    'Private Sub btn_ClickAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ClickAdd.Click
    'Dim Node As System.Windows.Forms.TreeNode
    ' Try
    '  If File.Exists("Fichier .exe") Then
    '     For Each Node In tView_Serveur.SelectedNode
    '        FileCopy(Node."Z:\tech\!  Softhèque\! PackSofts\", "%system root%\temp")
    '   Next
    '    End If
    ' Catch erreur As Exception
    '      MessageBox.Show("Copie échoué. " & erreur.GetBaseException.Message)
    '   End Try
    'End Sub

    Sub ListeArborescenceDossier(ByVal DossierActuel As String, ByVal NodeActuel As TreeNode)
        'Recupère le node dans lequel on est
        Dim Node As TreeNode = NodeActuel.Nodes(DossierActuel)
        'Répertoires de ce noeud
        For Each Dossier As String In Directory.GetDirectories(DossierActuel)
            Node.Nodes.Add(Dossier, Path.GetFileName(Dossier))
            'Récursive
            ListeArborescenceDossier(Dossier, Node)
        Next
        'Fichiers de ce noeud
        For Each Fichier As String In Directory.GetFiles(DossierActuel)
            Node.Nodes.Add(Path.GetFileName(Fichier))
        Next
    End Sub

    Sub CopierFichier()
        Dim Node As System.Windows.Forms.TreeNode
    FileCopy(Node."Z:\tech\!  Softhèque\! PackSofts\", "%system root%\temp")

    End Sub

End Class

Try
            Dim node As TreeNode
            node.SelectAction = TreeNodeSelectAction.Select
            If File.Exists("Fichier .exe") Then
                tView_Serveur.SelectedNode.Text
                CopierFichier()
            End If
        Catch erreur As Exception
            MessageBox.Show("Copie échoué. " & erreur.GetBaseException.Message)
        End Try

nomfichier = nomfichier.Replace("TreeNode: ", "")

nomfichier = nomfichier.Replace("TreeNode: ", "") 'supprime TreeNode: