Создание новых папок как в Windows=)

[Drakulov]

Всем привет! Вот такая задачка:
Нужно сделать такую программу, что бы при нажатии на кнопку на диске С:\ создавалась папка test1, при следующем нажатие на эту же кнопку создавалась папка test2 и т.д.

Пытался, пытался... не получилось. Пожалуйста, помогите!

Вот что сделал:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
ui, ut, tt:integer;
poslsimvl:char;  //последний символ
uy1, uy2, uy3, u:string;
begin
ui:=0;
ut:=0;

u:='C:\test1';
if DirectoryExists(u) then
begin          //1
For ui:=1 to length(u) do
begin     //0
ut:=ut+1;
end;    //0

poslsimvl:=u[ut];
uy3:=u;
delete(uy3, ut, ut);
uy1:=poslsimvl;
tt:=strtoint(uy1);
uy2:=inttostr(tt);
uy3:=uy3 + uy2;
CreateDir(uy3)
end     //1
else
createDir('C:\test1');
end;

[Hollander]

А не проще так:
- создаем переменную dirName типа string со значением "C:\test"
- создаем переменную index типа int со значением 1
- затем цикл while
* пока папка с именем dirName + index существует
** index := index + 1;
- создаем папку с именем dirName + index

[Kotofff]

procedure TForm1.Button1Click(Sender: TObject);
var
  ind:integer;
begin
  ind := 0;
  repeat
    inc(ind); // начали с 1
  until not DirectoryExists('c:\test' + IntToStr(ind));// проверяем пока есть папки но номерам 1,2,...
  CreateDir('c:\test' + IntToStr(ind));// делаем следующую по номеру
end;

Оптимизируй дальше сам ...

[Drakulov]

Ага, спасибо! Будем пробовать.=)

Хы! Работает! И чего я сразу так не додумался...Спасибо огромное=)

[Alter]

Лучше ForceDirectories, может создавать вложенные папки. использовать так же как CreateDir.
Пример:

 ForceDirectories('C:\1\2\3\4\');