9 respuestas en este tema

[cadetill]

Buenas,

No se si se ha publicado ya, pero aquí os dejo cómo saber si una carpeta está vacía
 

delphi

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

[egostar]

Muy interesante forma de combinar funciones y retornar una consulta

Aún no hemos trabajado con los FAQ's, y si, estos trucos estarán en los FAQ's.

Un gusto verte por aquí Xavier.

Salud OS

[enecumene]

He estado trabajando en el asunto de Introducir FAQ's e incluso en algunas mejoras de presentación, sólo que he tenido mucho inconvenientes con mi máquina, internet y energía eléctrica desde hace tiempo que espero resolver pronto.

Saludos.

[seoane]

Un placer verte por aqui.

[monchito_elroro]

Muchas gracias por el código muy amable, mas cuando lo intento usar en lazarus se queda en el siguiente error:

php

  Result := (FindFirst(Dir + &'\*.*&', faAnyFile, F) = 0) and     // exactamente entre el primer & y #

y la ventana de mensajes dice:

php

unit1.pas(39,31) Fatal: Syntax error, ")" expected but "const char" found

Si me pudieran dar una manito con el código, de momento estoy usando este que me funciona:

php

function IsDirectoryEmpty(const directory : string) : boolean;
 var
   searchRec :TSearchRec;
 begin
   try
    result := (FindFirst(directory+'\*.*', faAnyFile, searchRec) = 0) AND
              (FindNext(searchRec) = 0) AND
              (FindNext(searchRec) <> 0) ;
   finally
     FindClose(searchRec) ;
   end;
 end;

Su uso es así:

php

if IsDirectoryEmpty('F:\casita') then    // TAMBIEN PUEDE IR  'F:\casita\'
  BEGIN
  ShowMessage('esta vacio')
  END;
  else
  Begin
  ShowMessage('no esta vacio');
  end;

Me gustaría tener dos formas para saber si un directorio está vació o no por eso les pido su ayuda, gracias. 

[escafandra]

Muchas gracias por el código muy amable, mas cuando lo intento usar en lazarus se queda en el siguiente error:

delphi

  Result := (FindFirst(Dir + &'\*.*&', faAnyFile, F) = 0) and     // exactamente entre el primer & y #

Es un error en el foro, ya tienes editado el truco.

Saludos.

[escafandra]

Aprovecho para dar otra solución al problema con la API PathIsDirectoryEmpty

delphi

function PathIsDirectoryEmptyA(Path: PCHAR): BOOL; stdcall; external 'Shlwapi.dll';
var
  B: boolean;
begin
  B:= PathIsDirectoryEmptyA('C:\prueba');
end;

Saludos.

[monchito_elroro]

Muchas gracias amigo escafranda, ahora si me funciona la 1ra función, pero aún no logro hacer funcionar la última que compartió, imagino que primero se tiene que declarar o algo así, lo que siempre suelo hacer es poner las funciones después de:

php

{$R *.lfm}
 
{ TForm1 }

por ejemplo su última función que me compartió lo puse así:

php

implementation
 
{$R *.lfm}
 
{ TForm1 }
 
function PathIsDirectoryEmptyA(Path: PCHAR): BOOL; stdcall; external 'Shlwapi.dll';
var
  B: boolean;
begin
  B:= PathIsDirectoryEmptyA('C:\prueba');
end;

y me salta este error:

php

Compilar proyecto, Objetivo: project1.exe: Código de salida 1, Errores: 2
unit1.pas(32,46) Error: Identifier not found "BOOL"
unit1.pas(37,4) Fatal: Syntax error, "." expected but ";" found

Lo más seguro es que algo estoy haciendo mal... seguiré probando.

 

[monchito_elroro]

Estuve revisando un código antiguo que hize hace un tiempo, en el cual anote la forma de llamar a una DLL, lo he  implementado así:

php

var
  Form1: TForm1;
 
implementation
function PathIsDirectoryEmptyA(Path: PCHAR): BOOLean; stdcall; external 'Shlwapi.dll';    // aca me saltaba error con BOOL así que probe con boolen y de momento funciona.
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  B: boolean;
begin
  B:= PathIsDirectoryEmptyA('f:\casita');
  if b then ShowMessage('esta vacio') else ShowMessage('NO esta vacio');   // Funciona 
end;

Ahora si me funciona , pero deseo que me corrijan por si algo no esta bien, Gracias.

[escafandra]

BOOL es un tipo de Windows, para usarlo debes incluir esa unit. Es preferible esto a cambiar los tipos por los propios de delphi o Lazarus, y dado que trabajamos con API de Windows, el códico será incompatible con otras plataformas.


Saludos.