Traitement de Dossier -Partie2-

Supprimer un dossier vide
begin
if DirectoryExists(Edit1.Text) then RmDir(Edit1.Text);
 end;


Selectionner le nom d'un fichier
begin
Edit1.text:=ExtractFileName('c:\tht\adel.txt');
end;


Selectionner l'extention d'un Fichier
begin
showmessage(ExtractFileExt('C:\adel\bbc.txt'));
end;


Changer l'extention d'un Fichier
begin
changeFileExt('c:\bbc.txt','.doc');
end ;



Creer un fichier textuelle
var Fichier: TextFile;
begin
AssignFile(fichier,edit1.Text);
end;


Selectionner le dir d'un fichier
begin
showmessage(ExtractFileDrive ('C:\adel\bbc.txt'));
end;



Selectionner le path d'un fichier avec le nom du dossier pere
begin
showmessage(ExtractFilePath ('C:\ADEL\bbc.txt'
end;



Connaitre si le fichier est seulement pour la lecture
begin
if FileIsReadOnly('C:\ADEL\bbc.txt')= true
then showmessage('fichier est on lecture seule')
else showmessage('fichier n''est pas on lecture seule');
end;



begin
showmessage(GetCurrentDir);
end;