Как можно програмно создать кучу директорий

← →
Дмитрий Шумов (2002-08-08 12:57) [0]

Как можно програмно создать кучу директорий типа:
E:\users\Shumov
E:\users\Pavlova
E:\users\Elamina
E:\users\Frolov
E:\users\Korolev
E:\users\Rudik
E:\users\Frolova
если учесть что директорий более 30? Если можно подкинте примерчик.
Пробовал так:
procedure TForm1.Button1Click(Sender: TObject); var Dir: string; begin Dir := "C:\APPS\SALES\LOCAL"; ForceDirectories(Dir); if DirectoryExists(Dir) then Label1.Caption := Dir + " was created" end
не получается.

← →
lenin © (2002-08-08 13:05) [1]

А чем не подходит твой вариант. У меня все нормально создалось.

← →
Дмитрий Шумов (2002-08-08 13:09) [2]

Да, одну она создает, но махом штук 30 ни как не хочет.

← →
Skier © (2002-08-08 13:11) [3]

>Дмитрий Шумов

Если махом - то может стоит цикл использовать а
все названия директорий запихнуть в массив ?

← →
Song © (2002-08-08 13:15) [4]

30 штук одинаковых в смысле? ;-)

← →
Anatoly Podgoretsky © (2002-08-08 13:18) [5]

lenin © (08.08.02 13:05)
Тем что создает одну и при том с другим именем

← →
Дмитрий Шумов (2002-08-08 13:40) [6]

>Skier
Простите за ламерский вопрос, но примерчик можно?

>Дмитрий Шумов

Лови :

procedure TForm1.Button2Click(Sender: TObject); const USER_COUNT = 6; type TDirsToCreate = array[0..USER_COUNT] of String; const ADirsToCreate : TDirsToCreate = ( "E:\users\Shumov", "E:\users\Pavlova", "E:\users\Elamina", "E:\users\Frolov", "E:\users\Korolev", "E:\users\Rudik", "E:\users\Frolova" ); var ii : Integer; begin for ii := Low(ADirsToCreate) to High(ADirsToCreate) do begin ForceDirectories(ADirsToCreate[ii]); if DirectoryExists(ADirsToCreate[ii]) then Label1.Caption := ADirsToCreate[ii] + " - has been created..." end; //for end;

Как можно програмно создать кучу директорий Найти похожие ветки