'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:\test" '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=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:\test" '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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question