Открывать/создавать папку по нажатию на Button

[Akemi]

Здравствуйте.

Помогите пожалуйста кодом. Необходимо чтоб по нажатию на Button1 открывалась папка с именем которое берется из Edit1, допустим располагающаяся в корне на диске C:, при этом если такой папки не существует, то она должна создаваться все с тем же именем из Edit1.

[ZaRDaK]

if DirectoryExists(Edit1.Text) then
    ShellExecute(Self.Handle, PChar('explore') , PChar(Edit1.Text) , 0 , 0, SW_SHOWNORMAL);
  else begin
    if CreateDir(Edit1.Text) then
      ShowMessage('Directory created: ' + Edit1.Text)
    else
      ShowMessage('Could not create ' + Edit1.Text);
  end;

[Vikenty]

Сообщение от Akemi

Здравствуйте.

Помогите пожалуйста кодом. Необходимо чтоб по нажатию на Button1 открывалась папка с именем которое берется из Edit1, допустим располагающаяся в корне на диске C:, при этом если такой папки не существует, то она должна создаваться все с тем же именем из Edit1.

Открывалась в каком смысле?

[Akemi]

Сообщение от Vikenty

Открывалась в каком смысле?

Именно в том смысле как написал товарищ ZaRDaK

ZaRDaK, огромное спасибо!

[misher]

if DirectoryExists(Edit1.Text) then
ShellExecute(Self.Handle, PChar('explore') , PChar(Edit1.Text) , 0 , 0, SW_SHOWNORMAL);\\ у меня здесь ошибка... (нигде ничего не надо прописать(дополнительно?)
else begin
if CreateDir(Edit1.Text) then
ShowMessage('Directory created: ' + Edit1.Text)
else
ShowMessage('Could not create ' + Edit1.Text);
end;

и ещё перед else точка с запятой не ставится, а перед else begin она обязательно нада?

[FaTaL]

Сообщение от NarkoIII@

и ещё перед else точка с запятой не ставится, а перед else begin она обязательно нада?

Нет. Она там не нужна. Ещё и перед end; тоже она не нужна