Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click Try If File.Exists(Destination & "" & nomfichier) Then MessageBox.Show("Le fichier " & nomfichier & " existe déjà!", "Copie impossible", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub Else FileCopy(cheminfichier, Destination & "" & "nouveaunom.exe") MessageBox.Show("La copie du fichier: nouveaunom.exe est effectuée", "Copie fichier", MessageBoxButtons.OK, MessageBoxIcon.Information) reset() ToolStripMenuItem1.Enabled = False End If Catch erreur As Exception MessageBox.Show(erreur.GetBaseException.Message, "Copie fichier", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub
#Region "Renommage des fichiers" '-------------------------------- 'EVENEMENT GERANT LE CLIQUE DROIT '-------------------------------- Private Sub tView_Serveur_NodeMouseClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles tView_Serveur.NodeMouseClick Dim textFichier As String If e.Button = MouseButtons.Right Then textFichier = e.Node.Text MsgBox("1 " & textFichier) End If End Sub '-------------------------------------------------------- 'EVENEMENT POUR RENOMMER LE FICHIER 7z922.exe EN 7Zip.exe '-------------------------------------------------------- Private Sub ZipexeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZipexeToolStripMenuItem.Click Dim textToolStripMenu As String 'Dim textFichier As String 'remplaces le texte du fichier par le texte du label sélectionné textToolStripMenu = ZipexeToolStripMenuItem.Text MsgBox("2 " & textToolStripMenu) My.Computer.FileSystem.RenameFile(textFichier, textToolStripMenu) 'PUIS retires "le nom du fichier.exe" de la liste ToolSripMenus End Sub #End Region
My.Computer.FileSystem.RenameFile(textFichier, textToolStripMenu)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click Try If File.Exists(Destination & "" & textFichier) Then MessageBox.Show("Le fichier: " & textFichier & " existe déjà!", "Renommage impossible", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub Else FileCopy(cheminfichier & "" & nomfichier, Destination & "" & textFichier) MessageBox.Show("Le renommage du fichier: " & textFichier & " est effectué", "Renommer fichier", MessageBoxButtons.OK, MessageBoxIcon.Information) reset() ToolStripMenuItem1.Enabled = False End If Catch erreur As Exception MessageBox.Show(erreur.GetBaseException.Message, "Renommer fichier", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Private Sub tView_Serveur_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles tView_Serveur.NodeMouseClick Try If e.Button = MouseButtons.Right Then cheminfichier = "" cheminfichier = tView_Serveur.SelectedNode.FullPath nomfichier = e.Node.Text textFichier = e.Node.Text textFichier = "1 " & textFichier End If ToolStripMenuItem1.Text = textFichier Catch erreur As Exception MessageBox.Show(erreur.GetBaseException.Message, "Copie fichier", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub
Si tu veux suivre mes conseils c'est très simple tu mets le renommage dans un bouton.
Private Sub cmdrename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrename.Click Try If File.Exists(Destination & "" & textFichier) Then MessageBox.Show("Le fichier: " & textFichier & " existe déjà!", "Renommage impossible", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub Else My.Computer.FileSystem.RenameFile(cheminfichier & "" & nomfichier, textFichier) FileCopy(cheminfichier & "" & textFichier, Destination & "" & textFichier) MessageBox.Show("Le renommage du fichier: " & textFichier & " est effectué", "Renommer fichier", MessageBoxButtons.OK, MessageBoxIcon.Information) reset() ToolStripMenuItem1.Enabled = False End If Catch erreur As Exception MessageBox.Show(erreur.GetBaseException.Message, "Renommer fichier", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub