ForceDirectories (ruta)

Crea el directorio (carpeta) pasado como parámetro (igual que la función mkdir) y, además, si es una subcarpeta y no existen las carpetas padre (las que la contienen) las crea.

Es decir, para la ruta: c:\windows\temporal\alonso, la línea de código:

ForceDirectories (c:\windows\temporal\alonso);

Realizará las siguientes operaciones:
1. Comprobará si existe la carpeta “c:\windows”, si no existe la crea.
2. Comprobará si existe la carpeta “temporal”, si no existe la crea.
3. Comprobará si existe la carpeta “alonso”, si no existe la crea.

Un ejemplo de uso de esta función:

  carpetaOrigen := IncludeTrailingBackslash(carpetaOrigen);
  carpetaDestino := IncludeTrailingBackslash(carpetaDestino);
  ForceDirectories(carpetaDestino);

  if FindFirst(carpetaOrigen + filtro, faAnyFile, compBusqueda) = 0 then
  begin
    repeat
      if (compBusqueda.Name <> '.') and (compBusqueda.Name <> '..') then
alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario