Modifier la date de création d'un fichier ?

Bonjour/soir,

Je te conseille de jetter un oeil aux APIs suivantes:
GetFileTime, SetFileTime

Le premier paramètre de ces deux fonctions est un hFile pouvant être
récupéré par
CreateFile et fermé par CloseHandle

Et pour retrouver des formats de dates "lisibles":
SystemTimeToFileTime et FileTimeToSystemTime

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


Gislain ROCHE wrote:

Bonjour,

En VB 6.0, je cherche à fixer (modifier) la date de création,
modification et de dernier acces à un fichier. Comment faire ?

Merci d'avance.

Gislain ROCHE

Voila l'exemple :)

Public Sub CangeDateFichier( _
ByVal sCheminFichier As String, _
ByVal NouvDate As Date _
)
Dim AcDate As Date
Dim k As Integer
Dim Buff As String
k = FreeFile
Open sCheminFichier For Binary As #k
Buff = Space$(LOF(k))
Get #k, , Buff
Close #k
AcDate = Now
Date = Left$(NouvDate, InStr(1, _
NouvDate, " ", vbTextCompare) - 1)
Time = Mid$(NouvDate, InStr(1, _
NouvDate, " ", vbTextCompare) + 1)
Open sCheminFichier For Output As #k
Print #k, Buff;
Close #k
Date = Left$(AcDate, InStr(1, _
AcDate, " ", vbTextCompare) - 1)
Time = Mid$(AcDate, InStr(1, _
AcDate, " ", vbTextCompare) + 1)
End Sub


exemple :
Call CangeDateFichier("C:Documents and SettingsngBureauImage1.jpg",
"01/01/00 12:47:52")


D'accord c'est un peu du bricolage, mais y a pas que les APIs...

Nicolas.


"ng" <ng@babeuk.net> a écrit dans le message de news:
epPfUQ7SDHA.2248@TK2MSFTNGP11.phx.gbl...

Bonjour,

Une technique consisterait à changer la date système, ré-écrire le fichier
en question (avec un get puis un print;) et enfin rétablir l'heure
système....

Je vais écrire un exemple si j'ai 2 min...

Nicolas.
"Gislain ROCHE" <nospam@nospam.com> a écrit dans le message de news:
OycqlF7SDHA.3088@TK2MSFTNGP10.phx.gbl...
> Bonjour,
>
> En VB 6.0, je cherche à fixer (modifier) la date de création,

modification

> et de dernier acces à un fichier. Comment faire ?
>
> Merci d'avance.
>
> Gislain ROCHE
>
>

Merci à tous de votre aide.

Gislain ROCHE

"Gislain ROCHE" <nospam@nospam.com> a écrit dans le message de
news:OycqlF7SDHA.3088@TK2MSFTNGP10.phx.gbl...

Bonjour,

En VB 6.0, je cherche à fixer (modifier) la date de création, modification
et de dernier acces à un fichier. Comment faire ?

Merci d'avance.

Gislain ROCHE