Перейти в папку

[mitiay]

Createdir('D:\reports\'+(DateToStr(Date)));
idftp1.Get(listbox1.Items[listbox1.ItemIndex],('D:\reports\'+(listbox1.Items[listbox1.ItemIndex])),true);
ShellExecute(Handle, 'open',(PWideChar('D:\reports\'+listbox1.Items[listbox1.ItemIndex])), nil, nil, SW_SHOWNORMAL);
end;

Подскажите как перейти в созданную папку,чтоб закачка файла происходила в нее.

[Stilet]

Э-э-э... А чейчас куда закачивается?

[newerow1989]

Переход:

ChDir(<ПОЛНОЕ имя папки>);

[Аватар]

Пятым параметром в ShellExecute попробуй задать путь к каталогу по умолчанию

[min@y™]

Подскажите как перейти в созданную папку,чтоб закачка файла происходила в нее.

не надо переходить никуда, надо просто указать полное имя файла с путём, в который надо качать. и всё.

procedure TIdFTP.Get(const ASourceFile: string; ADest: TStream; AResume: Boolean = false); overload;
procedure TIdFTP.Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean = false; AResume: Boolean = false); overload;

[mitiay]

idftp1.Get(listbox1.Items[listbox1.ItemIndex],('D:\reports\'+DateToStr(Date))+(listbox1.Items[listbox1.ItemIndex]),true);
ShellExecute(Handle, 'open',(PWideChar('D:\reports\' +DateToStr(Date)+ listbox1.Items[listbox1.ItemIndex])), nil, nil, SW_SHOWNORMAL);

Пробую вот так!Просто создает файл с дата + имя

[Stilet]

var Path:String;
...
Path:='D:\reports\'+DateToStr(Date)+'\';
With ListBox1 do
if ForceDirectories(Path) then begin
 idftp1.Get(Items[ItemIndex],Path+Items[ItemIndex],true);
 ShellExecute(Handle, 'open',PWideChar(Path+ Items[ItemIndex]), nil, nil, SW_SHOWNORMAL);
end;

[mitiay]

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

var Path:String;
...
Path:='D:\reports\'+DateToStr(Date)+'\';
With ListBox1 do
if ForceDirectories(Path) then begin
 idftp1.Get(Items[ItemIndex],Path+Items[ItemIndex],true);
 ShellExecute(Handle, 'open',PWideChar(Path+ Items[ItemIndex]), nil, nil, SW_SHOWNORMAL);
end;

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