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
Funciones Delphi |
