Создание папок, Edit

[Серега1985]

Всем Добрый день,
необходимо создать папку с именем(допустим на диск D:\...) = тексту, указанному в Editе.
Заранее благодарен.

[JTG]

гм http://programmersforum.ru/showthread.php?p=126954

[Серега1985]

Я не могу понять как мне связать Mkdir и Edit1.Text.
Если несложно подскажи-те.

[DM_bite]

ппц

procedure TForm1.Button2Click(Sender: TObject);
var Dir: String;
begin
Dir:= Edit1.Text;
MKDir('D://'+Dir);
end;

Совет на будущее прочитайте правила.....Таких вопросов была куча, а ответов так еще больше....

[Crivel]

CreateDir('C:\' + Edit1.Text);

Это?

[eoln]

Или так

ForceDirectories('c:\' + edit1.Text)

где, например, edit1.Text := 'папка1\папка2\папка3'

Пока писал, куча ответов набралась

[Серега1985]

Спасибо всем большое.