Wininet und FTP (Verzeichnis rekursiv löschen)

[md787]

Hi,
danke erstmal für den Monitor.

Delphi-Quellcode:

procedure WasAuchImmer(hFTP: HINTERNET; Pfad: String);
var 
  hSearch: HINTERNET; 
  findData: WIN32_FIND_DATA; 
begin 
  //FtpSetCurrentDir(hFTP, PChar(Pfad));
  // oder hSearch := FtpFindFirstFile(hFTP,PChar(Pfad),findData,0,0); <- Das hab ich nicht getestet
// sollte aber auch funktionieren 
  hSearch := FtpFindFirstFile(hFTP,nil,findData,0,0); 
  repeat 
    if Folder then WasAuchImmer(hFTP, Pfad + '\' + findData.cfFilename + '\');
  until not InternetFindNextFile(hSearch,@findData); 
  InternetCloseHandle(hSearch); 
end;

Meinst du das in etwa so (hab ich jetzt geschrieben aber von Prinzip)?

Und danke für die Geduld.

MfG