Crear un árbol de carpetas

4577 vistas

Vamos a usar la función ForceDirectories(Dir: string): Boolean; de la unidad SysUtils.

ForceDirectories permite crear una carpeta y todos sus padres si es necesario. No es necesario hacer la comprovación de la existencia de la(s) carpeta(s) devido a que esta función ya realiza esta comprobación antes de crearla(s).

Ejemplo:



delphi
  1. var
  2.   Dir: string;
  3. begin
  4.   Dir := 'C:\APPS\SALES\LOCAL';
  5.   if ForceDirectories(Dir) then
  6.     Label1.Caption := Dir + ' creado'
  7. end;