Renommer automatiquement 3 fichiers texte définis (Visual Basic 2010 Express)Résolu

Question

Bonjour,

Je cherche à faire un petit exécutable VB pour renommer trois fichiers txt avec un nom définis (exemple : Animal.txt ; Voiture.txt ; Fleuve.txt) en réciproquement (Cheval.txt ; Proche.txt ; Fleuve.txt)

Les fichiers seraient déposés dans un répertoire (ex: c:	est\..)

Le but serait de contrôler dans un premier temps l&#8217;existence des trois fichiers avant de les renommer.

Pour ce faire, j&#8217;affiche un formulaire avec un texte inséré dans l&#8217;étiquette "label" expliquant qu'il faut appuyer sur le bouton "OK" pour renommer les fichiers. Le programme exécute alors les actions suivantes :
1) Contrôler dans un répertoire que j'ai nommé Test que trois fichiers existent
si ce n'est pas le cas, j'affiche un message d'erreur propre à chaque fichier.
2) Si le ou les fichiers existent bien dans le répertoire, je les renomme de façon personnalisée et je quitte le programme

Mon code fonctionne bien, mais j'aimerais bien savoir SVP, comment fermer automatiquement le formulaire après avoir appuyé sur le bouton "OK" que j'ai crée et si vous avez d'autres façons plus optimales et plus pro de faire ce que j'ai fait.

Je sais par exemple qu'il est possible de faire un message d'erreur général et d'y intégrer uniquement le nom du fichier manquant par une variable, mais je ne saurais le faire.

Merci de votre aide. 

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If System.IO.File.Exists("C:	est\Animal.txt") Then
            My.Computer.FileSystem.RenameFile("C:	est\Animal.txt", "Cheval.txt")
        Else
            MsgBox("Le fichier Animal.txt n'existe pas dans répertoire test")
        End If
        If System.IO.File.Exists("C:	est\Voiture.txt") Then
            My.Computer.FileSystem.RenameFile("C:	est\Voiture.txt", "Porche.txt")
        Else
            MsgBox("Le fichier Voiture.txt n'existe pas dans répertoire test")
        End If
        If System.IO.File.Exists("C:	est\Fleuve.txt") Then
            My.Computer.FileSystem.RenameFile("C:	est\Fleuve.txt", "le Rhône.txt")
        Else
            MsgBox("Le fichier Fleuve.txt n'existe pas dans répertoire test")
        End If
    End Sub
    ' Me.close()
End Class

Utilisateur anonyme · Accepted Answer

Salut,
Il faut te faciliter la tâche en te servant d'une boucle dans laquelle on testera chaque fichier. Et comme un petit exemple vaut mieux qu'un long discours voici ce qui pourrait être écrit par exemple :


'déclaration d'un tableau de base zéro des fichiers à tester
Dim ListeFichiersTester() As String = {"Animal.txt", "Voiture.txt", "Fleuve.txt"}
'déclaration du tableau de base zéro des fichier pour renommage
Dim ListeFichiersRenommer() As String = {"Cheval.txt", "Proche.txt", "Fleuve.txt"}
'déclaration du dossier de test
Dim DossierTest As String = "C:	est"
'début de la boucle de test de zéro à la longueur du tableau moins un
For x As Integer = 0 To ListeFichiersTester.Length - 1
    If My.Computer.FileSystem.FileExists(DossierTest & ListeFichiersTester(x)) Then
        My.Computer.FileSystem.RenameFile(DossierTest & ListeFichiersTester(x), ListeFichiersRenommer(x))
    Else
        MessageBox.Show("Le fichier " & DossierTest & ListeFichiersTester(x) & " n'existe pas!!")
    End
If Next
'fermeture de l'application
Application.Exit()

Utilisateur anonyme · Answer

petite erreur de mise en forme 
[code=vb]
'déclaration d'un tableau de base zéro des fichiers à tester
Dim ListeFichiersTester() As String = {"Animal.txt", "Voiture.txt", "Fleuve.txt"}
'déclaration du tableau de base zéro des fichier pour renommage
Dim ListeFichiersRenommer() As String = {"Cheval.txt", "Proche.txt", "Fleuve.txt"}
'déclaration du dossier de test
Dim DossierTest As String = "C:	est"
'début de la boucle de test de zéro à la longueur du tableau moins un
For x As Integer = 0 To ListeFichiersTester.Length - 1
    If My.Computer.FileSystem.FileExists(DossierTest & ListeFichiersTester(x)) Then
        My.Computer.FileSystem.RenameFile(DossierTest & ListeFichiersTester(x), ListeFichiersRenommer(x))
    Else
        MessageBox.Show("Le fichier " & DossierTest & ListeFichiersTester(x) & " n'existe pas!!")
    End If
Next
'fermeture de l'application
Application.Exit()
/code

angeld69 · Answer

banana32,

Merci de ton aide.

Dis-moi, l'ideal serait d'utiliser une procédure ou une fonction pour gérer ce programme??

Je suis novice en la matière.

Utilisateur anonyme · Answer

Re,
Je te conseille fortement de regarder ces cours où tu pourra apprendre des tas de choses intéressantes.
A très bientôt

angeld69 · Answer

Merci beaucoup ! c'est dingue ça, en très quelques minutes, tu m'as pondu une autre version de mon programme. Respect !

Renommer automatiquement 3 fichiers texte définis (Visual Basic 2010 Express)

5 réponses

Votre réponse

Discussions similaires