Codigo sin utilidad

[ixMike]

Bueno, este sí que tiene su utilidad, siempre y cuando no conozcas (como me pasaba a mí cuando lo escribí) el ForceDirectories que incluye Delphi

Código Delphi [-]
 
procedure MyMakeDir(Dir: string);
begin
If not DirectoryExists(ExtractFileDir(Dir)) then
 MyMakeDir(ExtractFileDir(Dir));
MkDir(Dir);
end;

Este es uno de los muchos procedimientos que creé sin saber que ya existían. Este al menos se quedó bien.