Delphi-Quellcode:
procedure GetFiles(const Directory: string; Files: TStrings;
const FileMask: string = '*.*'; const SubFolders: Boolean = True);
//Hilfsfunktion, um Schrägstriche hinzuzfügen, wenn nötig
function SlashSep(const Path, S: string): string;
begin
if AnsiLastChar(Path)^ <> '\' then Result := Path + '\' + S
else Result := Path + S;
end;
var SearchRec: TSearchRec;
nStatus: Integer;
begin
//Zuerst alle Dateien im aktuelle Verzeichnis finden
if FindFirst(SlashSep(Directory, FileMask), faAnyFile-faDirectory-faVolumeID,
SearchRec) = 0 then
begin
try
repeat
Files.Add(SlashSep(Directory, SearchRec.Name + ' ---- ' +DateTimeToStr(FileAge(SearchRec.Name)))); /////// Hier liegt das Problem :firejump: :?: :!:
until FindNext(SearchRec) <> 0;
finally
SysUtils.FindClose(SearchRec);
end;
end;
//Als nächstes nach Unterverzeichnissen suchen und, wenn benötigt, durchsuchen
if SubFolders then
begin
if FindFirst(SlashSep(Directory,'*.*'), faAnyFile, SearchRec) = 0 then
begin
try
repeat
//Wenn es ein Verzeichnis ist, Rekursion verwenden
if (SearchRec.Attr and faDirectory) <> 0 then
begin
if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then
GetFiles(SlashSep(Directory, SearchRec.Name), Files, FileMask, SubFolders);
end;
until FindNext(SearchRec) <> 0;
finally
SysUtils.FindClose(SearchRec);
end;
end;
end;
end;
-----------------
Ich hab ein Problm, wenn ich diesen Code, ohne der Zeile (s. Dies ist mein Problem) hinter dem '----', klappt noch alles, doch wenn ich den restlichen Code, der in der Zeile steht, einbinde erscheint in der Datei, die anschließend aus einer Listbox gespeichert wird IMMER 29.12.1899.
Wo liegt mein Fehler. Ich bin am verzweifeln.
Dödel
Zur Erklärung: Es soll das FileAge (letzte Änderung der Datei) hinter dem Pfad+Dateiname stehen. Z.B. D:/Dödel.txt ---- 20.07.2003
[edit=thomasdrewermann] Source-Tags eingefügt Mfg, thomasdrewermann[/edit]