Soit tu cherches s'il contient des fichiers avec TSearchRec.
Soit tu tentes de l'effacer :
begin
{$I-}
{ Lecture du nom du répertoire à partir du contrôle TEdit }
RmDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Répertoire contenant des fichiers', mtInformation, [mbOk], 0)
else
MessageDlg('Répertoire vide', mtInformation, [mbOk], 0);
end;
RMD
www.Logiciels-RMD.com
-------------------------------
Réponse au message :
-------------------------------
>
Salut
>
> Je dois tester simplement si un repertoire est vide ou ne l'est pas.
> Je n'ai rien trouvé à ce sujet.
>
> A+
>
>
