Listar una carpeta

[dec]

Hola,

Si se trata de copiar o mover una carpeta tal vez te fuera útil hacer uso de la estructura "TSHFileOpStruct" que propone el API de Win32. Esto que ahora verás es una adaptación de cierto código que Román publicó en su día para copiar o mover archivos... o puede que carpetas, no lo recuerdo ahora mismo:

Código Delphi [-]
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_MOVE;
    Wnd := GetDesktopWindow;
    pTo := PChar('D:\carpeta');
    pFrom := PChar('C:\carpeta'+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  ShFileOperation(FileOp);
end;

El código de más arriba movería la carpeta "C:\carpeta" y todo su contenido (subdirectorios y archivos) a "D:\carpeta". De todos modos echa un vistazo a la ayuda (SDK Win32 que viene con Delphi) sobre "SHFileOpStruct" para ampliar información.

[[Gunman]]

Muy interesante esta ayuda... Os confeso que nunca me había dado cuenta de que existia, muy estúpido por mi parte, nunca lo olvidaré...

[dec]

Hola,

Empezado por Gunman

(...) muy estúpido por mi parte (...)

Pues permíteme que te haga saber que yo no lo veo así en absoluto.

[[Gunman]]

Una vez más, fantástica la ayuda sobre la API Win32.
Dije lo de estúpido porque no sabía de su existenecia y me ha simplificado mucho las cosas, procedimientos que me ocupaban unas 10 línias se han traducido a una sola línia con las funciones que he encontrado en esta ayuda, realmente interesante, muchas gracias Dec!