recuperer la date d'un repertoire

bonjour Jef

si tu souhaites obtenir des informations sur la date de création ou la date de la derniere modification dans un reperetoire , tu peux tester :


Sub PropriétésRepertoire()
Dim Cible As Object, valeur As Object
Dim Resultat As String

Set Cible = CreateObject("Scripting.FileSystemObject")
Set valeur = Cible.getfolder("C:\Documents and Settings\michel\dossier\general\excel") 'adpater le chemin

Resultat = "Date creation : " & valeur.DateCreated & Chr(10) & _
"Dermiere modification : " & valeur.DateLastModified & Chr(10) & _
"Taille répertoire : " & valeur.Size & " octets . "

MsgBox Resultat

End Sub


bon apres midi
MichelXld