No se si se ha publicado ya, pero aquí os dejo cómo saber si una carpeta está vacía
function IsDirEmpty(const Dir: string): Boolean; var F: TSearchRec; begin Result := (FindFirst(Dir + '\*.*', faAnyFile, F) = 0) and (FindNext(F) = 0) and (FindNext(F) <> 0); FindClose(F); end;
Ya que estoy por estos lares.... ¿Se ha implementado algo para poder introducir FAQs? La verdad es que estaría bien que muchos de estos trucos se pusieran ahí para tenerlo todo bien localizado y catalogado
Nos leemos