FindNext oder FileAge mit Samba auf Linux

[Patrick]

Tach,

Also ich hätte da folgendes Problem anzubieten:
Ich habe ein Programm geschrieben, was zwei Ordner miteinander vergleicht und dateien austauscht. Dabei wird auch das Änderungsdatum der Dateien beachtet.

Jetzt will mein Freund das Ganze mit einem Windows Pfad und einem Netzwerkpfad, der auf einem Linux-Server endet, anwenden. Für die Connnection zwischen seinem Window und Linux Rechner sorgt "Samba". Das Problem ist, dass mein Programm nun Dateien auflistet, die in beiden Ordnern vorhanden sind, und vom Änderungsdatum auch kein Unterschied aufweisen. Das kann nur der Fall sein, wenn einer der Funktionen (Findnext oder FileAge) nicht richtig funktioniert.

Delphi-Quellcode:

function GetLastModified(const Datei: string; out Value: TDateTime): Boolean;
var
  dt : Integer;
begin
  dt := FileAge(Datei);
  Result := dt >= 0;
  if Result then
    Value := FileDateToDateTime(dt);
end;

Delphi-Quellcode:

procedure ListFileDir(const Path: string; FileList : TStrings; const subdir : boolean);
var SR : TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile and faDirectory, SR) = 0 then
  begin
    repeat
      if ((SR.Attr and faDirectory) <> 0) and (subdir=true) then
      begin
        if (SR.Name <> '.') and (SR.Name <> '..') then ListFileDir(Path+SR.Name+'\',FileList, subdir);
      end
      else if (SR.Attr <> faDirectory) then FileList.Add(path+SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Leider kann ich nichts genaueres sagen. Aber ich denke, dass es die "FileAge"-Funktion ist.
Ich hoff einer von euch kann mir helfen, und das Problem lösen...