Erstellt (am) einer Datei ändern

[sCrAPt]

Wo ist dann das Dateisystem? (Soll ich dazu einen neuen Thread eröffnen?) Das Datum wird doch wohl kaum in der Datei gespeichert, oder?

http://og4all.de/s.jpg, sCrAPt

[Christian Seehase]

Moin Scrapt,

da das Thema als solches schon recht komplex ist, und somit die Diskussion umfangreicher ausfallen könnte, wäre ein neuer Thread wohl wirklich besser.

[---Bernhard---]

So, jetzt hab ich leider nochmal ein Problem...
Das ändern des Datums einer Datei auf der Festplatte geht zwar jetzt ohne Probleme, aber das ändern auf meinem MP3-(USB)-Stick leider nicht.
Die Funktion gibt immer false zurück (==> nicht erfolgreich). Lesen klappt aber ohne Probleme.
Ich habe den Code von Tubos genommen ( http://www.delphi-source.de/tipps/dateien/?id=80 ).

Hoffe, ihr könnt mir auch bei diesem Problem weiterhelfen...
Danke im Vorraus

Bernhard

PS: Evtl. liegt es daran, dass der Code die Funktion "SetFileTime" von der unit Windows benutzt.

[edit]Benutze WinXP (NTFS) und der Stick ist FAT[/edit]

[---Bernhard---]

Kann mir denn keiner helfen?

[sCrAPt]

Meine bescheidenen aber vieleicht nicht korrekten Vermutungen:

• Der Stick gibt der Funktion keinen Schreibzugriff
• Die Funktion funktioniert auf einen FAT-System nicht
• Der Stick simuliert nur ein FAT-System

Für Alle 3 Vermutungen hätte ich aber keine Lösung :(

http://www.og4all.de/s.jpg, sCrAPt

[---Bernhard---]

Hi, ich bin’s noch mal.

Hab jetzt bisschen was geändert und herausgefunden, dass er den Pfad nicht gemocht hat. Hab den jetzt geändert und jetzt geht es wieder. Habe den Fehler am Anfang nicht bemerkt gehabt weil es beim Laden keine Probleme gab.

Danke noch mal für eure Hilfe!

[Vader]

hallo hab den beitrag von delphi-source.de gelesen und hätte da eine frage,
wie rufe ich diese funktion auf die die dateieigenschaften ändern soll ?

In folgender Prozedur wird dargestellt, wie diese drei Daten eines Ordners oder einer Datei auch geändert werden können

Code:

function ChangeFileDate(const path: string; const Creation, LastAccess,
  LastWrite: TDateTime): Boolean;
var
  hFile: THandle;
  ftCreationUTC, ftLastAccessUTC, ftLastWriteUTC: TFileTime;
  ftCreationLocal, ftLastAccessLocal, ftLastWriteLocal: TFileTime;
  stCreationLocal, stLastAccessLocal, stLastWriteLocal: TSystemTime;
begin
  result := false;
  hFile := CreateFile(PChar(path), GENERIC_READ or GENERIC_WRITE, 0, nil,
  OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if (hFile <> INVALID_HANDLE_VALUE) then
    try
      //Umwandlung von TDateTime in Systemzeitformat
      DateTimeToSystemTime(Creation, stCreationLocal);
      DateTimeToSystemTime(LastAccess, stLastAccessLocal);
      DateTimeToSystemTime(LastWrite, stLastWriteLocal);
      //Umwandlung von Systemzeitformat in lokales Dateizeitformat
      if (SystemTimeToFileTime(stCreationLocal, ftCreationLocal)) and
      (SystemTimeToFileTime(stLastAccessLocal, ftLastAccessLocal)) and
      (SystemTimeToFileTime(stLastWriteLocal, ftLastWriteLocal)) then begin
        //Umwandlung von lokalem Dateizeitformat in Weltzeit
        if (LocalFileTimeToFileTime(ftCreationLocal, ftCreationUTC)) and
        (LocalFileTimeToFileTime(ftLastAccessLocal, ftLastAccessUTC)) and
        (LocalFileTimeToFileTime(ftLastWriteLocal, ftLastWriteUTC)) then begin
          result:=SetFileTime(hFile, @ftCreationUTC, @ftLastAccessUTC, @ftLastWriteUTC);
        end;
      end;
    finally
      CloseHandle(hFile);
    end;
end;

mfg vader

[---Bernhard---]

Schau dir doch die Deklaration der Funktion an:

Code:

function ChangeFileDate(const path: string; const Creation, LastAccess, 
  LastWrite: TDateTime): Boolean;

Also z.B. so:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var erstellung, zugriff, schreibzugriff: TDateTime;
begin
  erstellung := StrToDateTime('01.01.2004 12:00');
  zugriff := StrToDateTime('01.01.2004 12:00');
  schreibzugriff := StrToDateTime('01.01.2004 12:00');
  ChangeFileDate('c:\temp\test.bmp', erstellung, zugriff, schreibzugriff);
end;

Bernhard

[Vader]

hallo bernhard,

herzlichen dank,so funzt es
mfg vader