[D2010] Modifier les dates d'un fichier avec SetFileTime

Version imprimable

Je cherche à donner à un fichier B les mêmes dates qu'un fichier A.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var
   HandleSource, HandleDest: THandle;
   DateCreation, DateModification, DateAcces: TFileTime;
begin
   // Ouverture du fichier source.
   HandleSource := FileOpen(szFichierSource, fmOpenRead or fmShareDenyNone);
   try
      if HandleSource = 0 then
         Exit;
 
      // Récupération des dates du fichier source.
      if not GetFileTime(HandleSource, @DateCreation, @DateAcces, @DateModification) then
      begin
         szErreur := #9 + 'Erreur :  la récupération des dates du fichier source [' + szFichierSource + '] a échoué !' + #13#10#9 + SysErrorMessage(GetLastError);
         Exit;
      end;
   finally
      FileClose(HandleSource);
   end;
 
   // Ouverture du fichier destination.
   HandleDest := FileOpen(szFichierDest, fmOpenReadWrite or fmShareExclusive);
   try
      if HandleDest = 0 then
         Exit;
 
      // Modification des dates du fichier destination.
      if not SetFileTime(HandleDest, @DateCreation, @DateAcces, @DateModification) then
      begin
         szErreur := #9 + 'Erreur :  la modification des date du fichier destination [' + szFichierDest + '] a échoué !' + #13#10#9 + SysErrorMessage(GetLastError);
         Exit;
      end;
   finally
      FileClose(HandleDest);
   end;

Et j'obtiens une erreur sur SetFileTime: :bug:

Citation:

Descripteur non valide

J'ai trouvé d'autres posts sur SetFileTime, mais je ne vois pas ce que j'ai mal fait (je suis sous D2010).

Une idée ?
:hola:

14/02/2012, 10h45
ShaiLeTroll
Essaye comme ceci
Code:

1 2 HandleDest := CreateFile(PChar(szFichierDest), FILE_WRITE_ATTRIBUTES, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
ou
Code:

1 2 HandleDest := FileOpen(szFichierDest, fmOpenWrite or fmShareExclusive);
ou même
Code:

1 2 HandleDest := FileOpen(szFichierDest, fmOpenWrite);
fmOpenWrite au lieu fmOpenReadWrite, après tout, tu ne veux pas lire le fichier, juste modifier les attributs !

j'aime beaucoup le sz de szFichierDest pour "zero-terminated string" en notation hongroise, alors que c'est je suppose UnicodeString qui est bien plus qu'une chaine terminée par un Double zéro !
Tu savais que ce n'est pas recommandé des règles de codage !
14/02/2012, 11h18
Lung
Citation:
Envoyé par ShaiLeTroll

Essaye comme ceci

Code:

1 2 HandleDest := CreateFile(PChar(szFichierDest), FILE_WRITE_ATTRIBUTES, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Je n'ai pas trouvé la définition de FILE_WRITE_ATTRIBUTES. Je me suis rabattu sur GENERIC_WRITE.
Ca me donne la même erreur.
Citation:
Envoyé par ShaiLeTroll

Code:

1 2 HandleDest := FileOpen(szFichierDest, fmOpenWrite or fmShareExclusive);
Même erreur.
Citation:
Envoyé par ShaiLeTroll

Code:

1 2 HandleDest := FileOpen(szFichierDest, fmOpenWrite);

fmOpenWrite au lieu fmOpenReadWrite, après tout, tu ne veux pas lire le fichier, juste modifier les attributs !
Même erreur.
snif :calim2:

Le problème doit être ailleur. :koi:
(Bien sûr, le fichier en question existe bien, et je n'ai pas de problème de droits)

Citation:

Envoyé par ShaiLeTroll

j'aime beaucoup le sz de szFichierDest pour "zero-terminated string" en notation hongroise, alors que c'est je suppose UnicodeString qui est bien plus qu'une chaine terminée par un Double zéro !
Tu savais que ce n'est pas recommandé des règles de codage !

J'utilise cette notation (depuis plus de 10 ans), car je n'aime pas me demander de quel type sont mes variables (je les préfixe toutes).
14/02/2012, 11h25
ShaiLeTroll
Que donne FileSetDate(FileName, Age), si elle ne passe pas non plus, ça vient des droits sur le fichier, même si tu penses ne pas en avoir !?

ah, c'est l'avantage d'être en C++Builder 2007, on a bien plus de header qu'en Delphi

Code:

#define FILE_WRITE_ATTRIBUTES ( 0x0100 ) // all

En XE2, ils ont rattrapés ce retard dans "...\source\rtl\win\Winapi.Windows.pas"
Code:

1 2 FILE_WRITE_ATTRIBUTES = $0100; // all {$EXTERNALSYM FILE_WRITE_ATTRIBUTES}
as-tu tenté ?
Code:

1 2 if not SetFileTime(HandleDest, @DateCreation, nil, nil) then
toutes variantes, de nil nil nil à @ @ @, peut-être que l'une des valeurs est refusée !
14/02/2012, 14h11
Lung

Citation:

Envoyé par ShaiLeTroll

as-tu tenté ?

Code:

if not SetFileTime(HandleDest, @DateCreation, nil, nil) then

toutes variantes, de nil nil nil à @ @ @, peut-être que l'une des valeurs est refusée !

Oui, j'avais testé avec la date de modification seule.

Citation:

Envoyé par ShaiLeTroll

En XE2, ils ont rattrapés ce retard dans "...\source\rtl\win\Winapi.Windows.pas"

Bonne nouvelle. Va falloir que je l'installe (j'ai une licence qui moisie :aie:).

Je viens de trouver le lien sur la msdn (http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx). :oops:

Code:

HandleDest := CreateFile(PChar(szFichierDest), FILE_WRITE_ATTRIBUTES, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

Ca marche !! :bravo: :ccool: :merci:

C'est étonnant quand même.
Ca veut dire que quand j'utilise FILE_GENERIC_WRITE, c'est l'un de ces droits que je n'ai pas ?

Citation:

FILE_APPEND_DATA
FILE_WRITE_ATTRIBUTES
FILE_WRITE_DATA
FILE_WRITE_EA
STANDARD_RIGHTS_WRITE
SYNCHRONIZE