Dim nomFichier As String = System.IO.Path.GetFileNameWithoutExtension("Z:\Rep\MonPetitFichier.exe")
Select Case NomFichier
Case "7zip.exe" 'si "7zip.exe" est sélectionné
ALORS remplaces le texte du fichier par le texte du ToolSripMenu sélectionné
PUIS retires "7zip.exe" de la liste ToolSripMenu
Case "firefox.exe"
ALORS remplaces le texte du fichier par le texte du ToolSripMenu sélectionné
PUIS retires "firefox.exe" de la liste ToolSripMenu
Case "7zip.exe"
ALORS remplaces le texte du fichier par le texte du ToolSripMenu sélectionné
PUIS retires "7zip.exe" de la liste ToolSripMenu
Case "glaryutilities.exe"
ALORS remplaces le texte du fichier par le texte du ToolSripMenu sélectionné
PUIS retires "glaryutilities.exe" de la liste ToolSripMenu
...
textFichier = Mid(cheminfichier, InStrRev(cheminfichier, "") + 1)
Dim fileName As String = "C:\7z920.exe" Dim name As String = System.IO.Path.GetFileName(fileName)
Dim fileName As String = "Z:\Rep\7z1520.exe" Dim name As String = System.IO.Path.GetFileNameWithoutExtension(fileName).ToLower() If name.StartsWith("7z") Then My.Computer.FileSystem.RenameFile(fileName, "7zip.exe") ElseIf name.StartsWith("firefox setup") Then My.Computer.FileSystem.RenameFile(fileName, "firefox.exe") 'ElseIf ... End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate 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é cheminfichier = tView_Serveur.SelectedNode.FullPath MsgBox("1" & cheminfichier) textFichier = Mid(cheminfichier, InStrRev(cheminfichier, "") + 1) MsgBox("2" & textFichier) textToolStripMenu = ZipexeToolStripMenuItem.Text MsgBox("3" & textToolStripMenu) My.Computer.FileSystem.RenameFile(textFichier, textToolStripMenu) 'PUIS retires "le nom du fichier.exe" de la liste ToolSripMenus End Sub