Discussion :

[rorobase]

Bonjour, je souhaitais savoir s'il existe une fonction permettant de pointer un fichier quelconque et de récuperer sa date de création

[rorobase]

Je viens de trouver la réponse sur un forum

Voici le code pour ceux que ça interresserait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Open(Cancel As Integer)
 
Dim Namefile As String
Dim Pathfile As String
Dim CompletPath As String
Dim fso, f
 
Namefile = "Nomfichier.extension"  'Nom du fichier à tester
Pathfile = ("C:\Toto\")                 'Dossier du fichier à tester
CompletPath = Pathfile + Namefile  'Chemin complet
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(CompletPath)
DateLastModified = f.DateLastModified
 
Me.Date = DateLastModified         'Champs texte Date récupere la date de création 
 
MsgBox DateLastModified(CompletPath) 'affiche boite avec la date de création
 
End Sub