Как создать несколько каталогов, вложенных друг в друга?
Способ первый
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; |