[R] Pb récupération date et heure fichier

[Hugues]

Bonjour,

Je liste des fichiers contenus dans un dossier et je veux récupérer leur date et heure. Jusque là pas de soucis sauf que j'ai un décalage de 2 heures entre l'heure de mon fichier stocké sur mon serveur et l'heure retournée par la fonction utilisée...

Ca doit être une bétise de ma part je pense.

Merci par avance de votre aide, ci-joint mon code

► Afficher le texte

[/

Code : Tout sélectionner

Local $ar_Array = _FileListToArrayXT("MonDossier", "*", 0, 2, True, "*.txt;*.io")
    _ArrayDisplay($ar_Array, "Liste fichier") 
    For $d = 1 To UBound($ar_Array) - 1
        Local $hFile = _WinAPI_CreateFile($ar_Array[$d], 2)
        If $hFile = 0 Then _WinAPI_ShowError("Unable to open file")
        Local $aTime = _Date_Time_GetFileTime($hFile)
        _WinAPI_CloseHandle($hFile)
        ConsoleWrite($ar_Array[$d] &  " | " & _Date_Time_FileTimeToStr($aTime[2], 2) & @CRLF)
    Next
 

[Oversid3]

Et quelle est l'heure sur le serveur ?

[Hugues]

Bin la bonne... J'ai créé un fichier (date et heure: 2015/11/06 10:55:49, retour de ma fonction: 2015/11/06 09:55:49)...

Décalage d'une heure... Heure d'hiver/été???

[mikell]

Bin oui... c'est évoqué ici (entre autres)
Faut bidouiller avec _Date_Time_FileTimeToLocalFileTime + _Date_Time_FileTimeToStr

[jchd]

NTFS utilise l'heure UTC, la seule qui ait un sens précis.

Il faut convertir en heure locale pour exploitation "humaine" et donc tenir compte non seulement du fuseau de la position géographique mais aussi du décalage éventuel d'heure d'été/hiver (DST) en vigueur à cet endroit et à cette date.

[mikell]

jc, some sample code ?

[Hugues]

J'ai trouvé cette fonction qui me donne: Date, Heure et taille.

Par contre la date est au format anglais...

► Afficher le texte

Code : Tout sélectionner

For $d = 1 To UBound($ar_Array) - 1
        Local $hFile = _WinAPI_CreateFile("\\" & $DumHostName & "\production\Caulking\" & $DumComBo & "\" & $CellIndex & "\" & $ar_Array[$d], 2, 2, 6)
        Local $aInfo = _WinAPI_GetFileInformationByHandle($hFile)
            If IsArray($aInfo) Then
                For $i = 1 To 3
                    If IsDllStruct($aInfo[$i]) Then
                        Local $tFILETIME = _Date_Time_FileTimeToLocalFileTime(DllStructGetPtr($aInfo[$i]))
                        $aInfo[$i] = _Date_Time_FileTimeToSystemTime(DllStructGetPtr($tFILETIME))
                        $aInfo[$i] = _Date_Time_SystemTimeToDateTimeStr($aInfo[$i])
                    Else
                        $aInfo[$i] = 'Unknown'
                    EndIf
                Next
            EndIf
        ConsoleWrite($ar_Array[$d] &  " | " &  $aInfo[3] & @CRLF)
        _GUICtrlListView_AddItem($ListView1, $ar_Array[$d], $d)
        
        _WinAPI_CloseHandle($hFile)
    Next


 

[Hugues]

C'est bon j'ai trouvé cette formule pour convertir ^^

Code : Tout sélectionner

$sOutput = StringRegExpReplace($DATE, "^(\d\d)\/(\d\d)\/(/*)$", "$2.$1.$3")