Guten Morgen Hedie,
Zitat von
hedie:
Der Code Sieht nun so aus
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var
SaveFilename:
string;
begin
SaveFilename := extractfilepath(Application.Exename) + ExtractFileName(ListBox1.Items[ListBox1.ItemIndex] );
if FileExists(SaveFilename)
then
DeleteFile(SaveFilename);
FTP.Get(ListBox1.Items[ListBox1.ItemIndex], SaveFilename);
memo2.Lines.LoadFromFile(edit1.Text + ('
.vfl'));
end;
aber diese meldung kommt immer noch :wall:
Die Datei existiert bereits auf dem
FTP-Server, denn
Zitat:
TIdFTP.Get
Description
This command downloads a file to the
FTP server with the name ASourceFile. Setting the AAppend to True causes the TIdFTP to append the file being downloaded to one which exists on the local machine. The file being downloaded could be either a stream (ADest) or a file name (ADestFile) which TIdFTP can create.
Du müsstest also überprüfen, ob die Datei schon auf dem Server liegt.
Grüße
Klaus