Hier ein kleiner Ausschnitt des relevanten Codes:
Delphi-Quellcode:
procedure Tfmain.LoescheVerz(Path: String);
var
hSearch : HINTERNET;
findData: TWin32FindData;
fn: string;
begin
hSearch := FtpFindFirstFile(hConnect, PChar(Path), findData, 0, 0);
repeat
fn := findData.cFileName;
// Wenn es sich um einen Dateinamen, welcher mit einem Punkt beginnt, handelt
// ist fn leer.
if findData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY then
begin
Wie gesagt, es werden sämtliche Verzeichnisse und Dateien ordnungsgemäß in fn eingelesen, außer es handelt sich um einen Dateinamen, welcher mit einem Punkt beginnt. In diesem Falle ist der String fn leer.
mfg
Herbert