Sujet Précédent Sujet Suivant

Connaitre le contenu d'un dossier

esigvb Messages postés 24 Date d'inscription mercredi 16 mars 2005 Statut Membre Dernière intervention 25 mars 2009 - 10 mai 2006 à 14:38
esigvb Messages postés 24 Date d'inscription mercredi 16 mars 2005 Statut Membre Dernière intervention 25 mars 2009 - 10 mai 2006 à 14:38
Bonjour,

Je souhaite savoir si un dossier contient des fichiers. Car par exemple windows donne le nombre de fichiers et de dossier.

Clic droite sur un dossier
Clic sur Propriétés
Ligne contenu: xx fichiers, xx dossiers


Voici mon programme, mais il détecte aussi les sous dossier, et il me renvoie donc 'Répertoire contenant des fichiers'.
Alors que je souhaite seulement savoir si il y a un fichier. Le top serait pour moi de connaitre le nombre de fichiers et de sous dossier comme Windows.



procedure TForm2.Button1Click(Sender: TObject);
begin

{$I-}
RmDir('C:\Dossier A\Dossier B\Dossier C');
{$I+}

if IOResult <> 0 then MessageDlg('Répertoire contenant des fichiers', mtInformation, [mbOk], 0)
else MessageDlg('Répertoire vide', mtInformation, [mbOk], 0);

end;



Dossier A
|
+---Dossier B---+-----------+
| | |
| Dossier C Dossier D
|
+---Dossier E


Merci d'avance pour votre aide.

Discussions similaires

liste deroulante relier à un dossier...
_deadstar_ -
_deadstar_ -

9 réponses
Actualisation d'un dossier
cs_PHILOUVB -
PHILOUVB -

5 réponses
Compatibilité 32 bits et 64 bits
MEUCORACAO -
MEUCORACAO -

12 réponses
[vba] recopier la valeur d'une cellule dans une autre feuille.
cokinoumasterflash -
cokinoumasterflash -

5 réponses
Scanner un dossier vers mysql...
R3dDragon -
R3dDragon -

2 réponses
Rejoignez-nous