date de dernière modif d'un fichier

Question

Bonjour à tous, j'ai trouvé sur ce forum que la date d'un fichier, c'est 
datefic = FileDateTime("MonFichier")

Mais ça doit être la date de création, moi j'ai besoin de la date de dernière modification.

Est ce que quelqu'un sait comment faire ?

cs_moustachu · Answer

Ca doit pouvoir t'aider :
http://www.henri-ruch.ch/VB/articles/iniediteur/Editeu%20ini.asp

stevebelgium · Answer

une example avec c;\a.txt

Private Sub Command1_Click()
    ShowFileAccessInfo "c:	est.txt"
End Sub

Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    MsgBox s, 0, "File Access Info"
End Sub

cs_joina · Answer

Moi j'ai fait comme ça

Private Sub File1_dblClick()
Dim datefic As String
Dim taillefic As String
Dim monfichier As String
Dim monchemin As String

MsgBox (File1.ListCount)

monfichier = File1.List(ListIndex - 1)
monchemin = Label3.Caption & "" & monfichier

datefic = FileDateTime(monchemin)

taillefic = FileLen(monchemin)

Label9.Caption = "date : " & datefic & "  taille : " & taillefic

End Sub

mais il me donne la date et la taille du repertoire, pas de l'entrée de la listbox File1 selectionnée.

stevebelgium · Answer

tu dois le faire comme ca :

Private Sub File1_dblClick()
Dim datefic As String
Dim taillefic As String
Dim monfichier As String
Dim monchemin As String

MsgBox ShowFileAccessInfo(File1)

'monfichier = File1.List(ListIndex - 1)
'monchemin = Label3.Caption & "" & monfichier

'datefic = FileDateTime(monchemin)

'taillefic = FileLen(monchemin)

'Label9.Caption = "date : " & datefic & " taille : " & taillefic

End Sub

 Function ShowFileAccessInfo(filespec)
 
 Dim fs, f, s
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.GetFile(filespec)
 's = UCase(filespec) & vbCrLf
 's = s & "Created: " & f.DateCreated & vbCrLf
 's = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
 ShowFileAccessInfo = "Last Modified: " & f.DateLastModified
 'MsgBox s, 0, "File Access Info"
 End Function

tawac · Answer

Il existe DateLastModified , DateCreated et DateLastAccessed

Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = s & "Dernière modification le : " & f.DateLastModified

tawac · Answer

Pour répondre à ta question: 
FileDateTime renvoie la date de dernière modification, je viens de le tester. 
Si le fichier n'a jamais été modifié, la date de création est alors renvoyée.

à +
tawac

Date de dernière modif d'un fichier

6 réponses

Discussions similaires