Borland Delphi 7. Как открыть папку, номер которой будет прописан в Edit1?

@bitsnipe123 · Регистрация: 16.04.2018

Студворк — интернет-сервис помощи студентам

Допустим у меня есть папка внутри которой есть 300 других папок, c именами от 1 до 300.
Так вот как сделать так чтобы при нажатии на Button открылась именно та папка, имя которой будет в Edit1?

Например: C:\Users\Disptaxione\Pictures\Фото позывных\*имя папки из Edit1*

Delphi

procedure TForm1.Image2Click(Sender: TObject);
begin
 
ShellExecute(0, nil, 'C:\Users\Disptaxione\Pictures\Фото позывных\' + 'Edit1.Text' , nil, nil, SW_SHOWNORMAL);
 
 
end;

у меня просто открывает C:\Users\Disptaxione\Pictures\Фото позывных\Edit1.Text

Выручайте!

@krapotkin · 22.03.2019, 22:19

+ edit1.text

Verevkin · 22.03.2019, 22:42

Delphi

procedure TForm1.Image2Click(Sender: TObject);
var
  folder: string;
begin
  folder:= 'C:\Users\Disptaxione\Pictures\Фото позывных\' + trim(edit1.text);
  if DirectoryExists(folder)
    then ShellExecute(0, 'explore', pchar(folder) , nil, nil, SW_SHOWDEFAULT)
    else raise Exception.Create('Каталог не найден.');
end;

@krapotkin 5609 / 4383 / 1396 Регистрация: 14.04.2014 Сообщений: 19,600 Записей в блоге: 19
	22.03.2019, 22:19	2
	+ edit1.text 0

Опции темы

Borland Delphi 7. Как открыть папку, номер которой будет прописан в Edit1?

Решение