none
Rename File RRS feed

  • Question

  • Bonsoir a tous, voila je voudrais renommer un dossier pour cela j'ai mis ce code pour le système 64bits et ça fonctionne correctement:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim oldname As String = "C:\Program Files (x86)\Test\123"
            Dim newname As String = "C:\Program Files (x86)\Test\456"
            If Directory.Exists(oldname) And Not Directory.Exists(newname) Then
                Directory.Move(oldname, newname)
                MsgBox("Ficher renommer avec sucée", MsgBoxStyle.SystemModal, "Message")
            Else
                MsgBox("Ficher déjà renommer", MsgBoxStyle.SystemModal, "Message")
            End If
        End Sub

    et  j'ai mis ce code pour le système 32bits et ça fonctionne correctement aussi:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim oldname As String = "C:\Program Files\Test\123"
            Dim newname As String = "C:\Program Files\Test\456"
            If Directory.Exists(oldname) And Not Directory.Exists(newname) Then
                Directory.Move(oldname, newname)
                MsgBox("Ficher renommer avec sucée", MsgBoxStyle.SystemModal, "Message")
            Else
                MsgBox("Ficher déjà renommer", MsgBoxStyle.SystemModal, "Message")
            End If
        End Sub

    Donc ma question est la suivante:

    Comment fusionner les deux code pour avoir un seul code pour les systèmes 32 et 64 bits ensemble?

    Merci d'avance et a+.

    vendredi 27 décembre 2013 23:03

Réponses

  • Bonjour,

            Dim oldname As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) + "Test\123"
            Dim newName As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) + "Test\456"
    
            If Directory.Exists(oldname) And Not Directory.Exists(newName) Then
                Directory.Move(oldname, newName)
                MsgBox("Ficher renommer avec sucée", MsgBoxStyle.SystemModal, "Message")
            Else
                MsgBox("Ficher déjà renommer", MsgBoxStyle.SystemModal, "Message")
            End If

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance - P.O.S Informatique
    Blog : http://gilles.tourreau.fr - Suivez-moi sur Twitter
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCSA : SQL Server 2012
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0 / TFS 2010 / Windows Azure

    • Marqué comme réponse Aurel Bera mardi 7 janvier 2014 15:06
    dimanche 29 décembre 2013 16:14
    Modérateur

Toutes les réponses

  • Please help
    samedi 28 décembre 2013 22:27
  • Bonjour,

            Dim oldname As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) + "Test\123"
            Dim newName As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86) + "Test\456"
    
            If Directory.Exists(oldname) And Not Directory.Exists(newName) Then
                Directory.Move(oldname, newName)
                MsgBox("Ficher renommer avec sucée", MsgBoxStyle.SystemModal, "Message")
            Else
                MsgBox("Ficher déjà renommer", MsgBoxStyle.SystemModal, "Message")
            End If

    Cordialement


    Gilles TOURREAU - MVP C#
    Architecte logiciel/Consultant/Formateur Freelance - P.O.S Informatique
    Blog : http://gilles.tourreau.fr - Suivez-moi sur Twitter
    - MCPD : Enterprise Developper / Windows Developper 3.5 / ASP .NET 3.5/4.0
    - MCSA : SQL Server 2012
    - MCITP : SQL Server 2008 Developper
    - MCTS : ADO .NET 3.5 / SQL Server 2008 Developper / Windows Forms 3.5 / ASP .NET 3.5/4.0 / TFS 2010 / Windows Azure

    • Marqué comme réponse Aurel Bera mardi 7 janvier 2014 15:06
    dimanche 29 décembre 2013 16:14
    Modérateur
  • Bonjour,

    Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?

    Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    mardi 7 janvier 2014 15:06