Bonjour à tous

Le code suivant me permet de récupérer la date et l'heure de modification du
fichier.
Comment peux-t-on extraire uniquement l'heure de modification
afin de pouvoir la comparer avec l'heure du système
Merci pour vos réponses

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Set oFSO = CreateObject("Scripting.FileSystemObject")
stFichier = "c:\LOG6460.TXT"
If oFSO.FileExists(stFichier) Then
   Set oFl = oFSO.GetFile(stFichier)
Hor = oFl.DateLastModified
WScript.Echo Hor
 
End if