Crear una carpeta

2275 vistas

Vamos a usar la función CreateDir(const Dir: String): Boolean; de la unidad SysUtils.

Antes de hacer la llamada a esta función, es preferible comprobar la no existencia de la carpeta asà como la verificación de que la creación ha ido correctamente.

Ejemplo:



delphi
  1. begin
  2.   if not DirectoryExists('C:\temp') then
  3.     if not CreateDir('C:\temp') then
  4.       raise Exception.Create('Imposible crear C:\temp');
  5. end;