.

mercredi 28 septembre 2011

Traitement de dossiers

Creation d'un dossier en utilisant delphi:

begin
CreateDir(Edit1.Text);
end;
ou Edit1.Text contient le nom de notre dossier + son emplacement
ex:   Edit1.text :=’d:\azedine’;

creant un petit  exemple
 ouvrir un nouveau projet dans delphi
 ajouter un composant button1
 ajouter ce code

   begin
   CreateDir(Edit1.Text);
   end;
ajouter un composant edit1 ou vous allez ecrire le chemin de votre dossier





supprimer un dossier:
Delphi nous permets de changer le nom d'un dossie existant
pour faire ceci il faut d' abord affirmer que le dossier existe

begin
if DirectoryExists(Edit1.Text) then ShowMessage('le dossier existe')
else
ShowMessage('le dossier n'existe pas');
end;


apres cette affirmation on peut supprimer notre dossier

begin
if DirectoryExists(Edit1.Text) then
RmDir(Edit1.Text);
ShowMessage(‘le dossier supprimer’) ;
end;



creation d'un fichier dans un dossier:

begin
createfile(delphir,edit1.Text);
end;
supprimer un fichier:

begin
DeleteFile(edit1.text);
end;

a suivre.....


0 commentaires:

Enregistrer un commentaire