[R] Comparer la date d'un fichier a celle du jour

[krank35]

Salut a tous je cherche a farie un script pour comparer la date du jour a la date de creation d'un pour par la suite lancer une ligne de commande.

pour trouver la date du fichier pas de problemes :

Code : Tout sélectionner

$t =  FileGetTime("C:\MEDIAS\xmltv\tvguide.xml", 1)
If Not @error Then
    $yyyymd = $t[0] & "/" & $t[1] & "/" & $t[2]
    MsgBox(0, "Date du fichier TVGUIDE.XML", $yyyymd)
EndIf

mais pour comparer cette date a la date du jour je vois pas bien ...

il faut utiliser quelle fonction ?

Merci de votre aide

[sylvanie]

Bonjour,
il suffit de comparrer chaque composante respectivement avec
@YEAR
@MON
et
@MDAY
via un comparaison en cascade, premier test sur l'année, 2eme sur le mois puis le jour

[jl56]

Salut a tous je cherche a farie un script pour comparer la date du jour a la date de creation d'un pour par la suite lancer une ligne de commande.

pour trouver la date du fichier pas de problemes :

Code : Tout sélectionner

$t =  FileGetTime("C:\MEDIAS\xmltv\tvguide.xml", 1)
If Not @error Then
    $yyyymd = $t[0] & "/" & $t[1] & "/" & $t[2]
    MsgBox(0, "Date du fichier TVGUIDE.XML", $yyyymd)
EndIf

mais pour comparer cette date a la date du jour je vois pas bien ...

il faut utiliser quelle fonction ?

Merci de votre aide

bonjour
pour un script j'ai utilsé ceux-ci:

Code : Tout sélectionner

$t=FileGetTime("fichier.txt",0)
$datefichier=_DateToDayValue ($t[0]  , $t[1]  , $t[2])
$datejour = _DateToDayValue (@YEAR, @MON, @MDAY)
if $datejour < $datefichier then    xxxxxxx

a+ jl56

[sergio]

il faut de servir de la fonction _NowCalc
un petit bout de script dont je me serts je teste la date d'un fichier par apport à la date du jour et je supprime si plus de 8 jours dans ce cas

Code : Tout sélectionner

; Calcul de l'ancienneté du fichier : 
$DateCalc = _DateDiff ( 'D' , $DateFic , _NowCalc ( ) ) 
; test affichage
MsgBox ( 4096 , "" , "nombre de jour si sup à 8 ok :" & $DateCalc ) 
; si date superieur ou egal à 8 j effacement du fichier
If $DateCalc > = 8 then 
    FileDelete ( "D:\SAVE_MELL" & "\" & $file ) 
EndIf