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;
begin
createfile(delphir,edit1.Text);
end;
supprimer un fichier:
a suivre.....
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;
0 commentaires:
Enregistrer un commentaire