Vérifier si un dossier est vide
Contenu du snippet
function IncludeSearchSDS(const Path: string): string; begin result := path; if IsPathDelimiter(Result, Length(Result)) then Result := Result + '*.*' else Result := Result + PathDelim + '*.*'; end; function IsEmptyDirectory(const Path: String): boolean; var SR : TSearchRec; C : integer; begin result := true; C := 0; if DirectoryExists(Path) then if SysUtils.FindFirst(IncludeSearchSDS(Path), faAnyFile, SR) = 0 then try repeat if (SR.Name <> '.') and (SR.Name <> '..') then inc(C); until (SysUtils.FindNext(SR) <> 0) or (C > 0); result := C = 0; finally SysUtils.FindClose(SR); end; end;
Compatibilité : Delphi 5
Disponible dans d'autres langages :
A voir également
- Vérifier si un dossier est vide
- Relier un dossier ✓ - Forum PHP
- Dernière ligne non vide vba ✓ - Forum Visual Basic 6
- Que signifie actualiser un dossier - Forum VB.NET
- Selection derniere cellule non vide plage cellule Excel - Forum Visual Basic 6
- Vba dernière cellule non vide (Ignorer les formules résultat "") - Forum VBA Office (Excel, Word ...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.