Renommage de fichiers
Remonter à Comment construire des applications Fiches VCL
La création de cette application VCL comprend les étapes suivantes :
- Créer un répertoire projet contenant un fichier à renommer.
- Créer une fiche VCL avec des contrôles de boutons et de libellés.
- Ecrire du code pour renommer le fichier.
- Exécuter l'application.
Pour configurer votre répertoire projet et un fichier texte à copier
- Créez un répertoire dans lequel stocker les fichiers de votre projet.
- Créez ou copiez un fichier texte dans votre répertoire projet puis enregistrez-le sous le nom MyFile.txt.
Pour créer une fiche VCL avec un bouton et un libellé
- Choisissez Fichier > Nouveau > Autre > Projets Delphi ou Projets C++Builder et double-cliquez sur l'icône Application Fiches VCL.Le Concepteur de fiches VCL apparaît.
- Sur la page Standard de la palette d'outils, placez un composant TButton sur la fiche.
- A partir de la page Standard de la palette d'outils, placez un composant TLabel sur la fiche.
Pour écrire la procédure de renommage de fichier
- Sélectionnez Button1 sur la fiche.
- Dans l'inspecteur d'objets, double-cliquez sur l'action OnClick de l'onglet Evénements.L'éditeur de code s'affiche, le curseur placé dans le bloc du gestionnaire de l'événement TForm1.Button1Click (Delphi) ou TForm1::Button1Click (C++).
- Au niveau du curseur, tapez le code suivant :
if not RenameFile('MyFile.txt', 'YourFile.txt') then
Label1.Caption := 'Erreur de renommage du fichier!';
if( !RenameFile( "..\\MyFile.txt", "..\\YourFile.txt" )
Label1–>Caption = "Erreur de renommage du fichier";
// les paramètres fichier supposent que le répertoire de sortie cible est situé dans le répertoire du projet
Remarque : Il n'est pas possible de renommer (déplacer) un fichier d'un lecteur vers un autre en utilisant RenameFile. Pour ce faire, vous devez commencer par copier le fichier, puis supprimer le fichier original. Dans la bibliothèque d'exécution, RenameFile est une enveloppe pour la fonction MoveFile de l'API Windows, et MoveFile ne fonctionne donc pas non plus d'un lecteur à l'autre.
Pour exécuter l'application
- Enregistrez le fichier projet, puis choisissez Exécuter > Exécuter pour construire et exécuter l'application. La fiche apparaît.
- Cliquez sur le bouton. Si aucun message ne s'affiche dans le libellé, vérifiez le nom du fichier dans votre répertoire projet.MyFile.txt devrait être renommé en YourFile.txt.
- Si le libellé affiche le message d'erreur, revérifiez le code de votre gestionnaire d'événement.