Delphi-Help

Главная Статьи Директории Как создать несколько каталогов, вложенных друг в друга?

Как создать несколько каталогов, вложенных друг в друга?

Оцените материал
(0 голосов)


Как создать несколько каталогов, вложенных друг в друга?

Способ первый

procedure CreateDirEx( Path: string );
var
  Temp: string;
begin
   if Path[Length( Path )] <> '\' then
      Path := Path + '\';
   Temp := Copy( Path, 1, Pos( '\', Path ) );
   Delete( Path, 1, Pos( '\', Path ) );
   while Length( Path ) > 0 do
   begin
      Temp := Temp + Copy( Path, 1, Pos( '\', Path ) );
      Delete( Path, 1, Pos( '\', Path ) );
      if not DirectoryExists( Temp ) then
         CreateDir( Temp );
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   CreateDirEx( 'c:\Dir1\Dir2\Dir3' );
end;

Способ второй

procedure TForm1.Button1Click(Sender: TObject);
begin
   ForceDirectories( 'c:\Dir1\Dir2\Dir3' );
end;
Прочитано 4139 раз

Авторизация



Счетчики