Attribut des fichiers d'un répertoire

Bonjour

J'essai de stocker la Date de Création des fichiers dans une variable
j'ai essayé le code suivant
Code:

1 2 3 4 5 6 For Each Fichier in FSO.GetFolder(strDirCOPIE).Files Set oFl = FSO.GetFile(Fichier) Set DateCrea = oFl.DateLastModified WScript.Echo " Date Fichier " & DateCrea next
Hélas, la variable est vide
Merci pour vos réponses

Citation:

Envoyé par qmike

Bonjour
J'essai de stocker la Date de Création des fichiers dans une variable
j'ai essayé le code suivant

Code:

1
2
3
4
5
For Each Fichier in FSO.GetFolder(strDirCOPIE).Files
    Set oFl = FSO.GetFile(Fichier)
Set DateCrea = oFl.DateLastModified
	  WScript.Echo " Date Fichier " & DateCrea
next

Hélas, la variable est vide
Merci pour vos réponses

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set fso=CreateObject("Scripting.filesystemObject")
strDirCOPIE = "c:\test"
For Each Fichier in FSO.GetFolder(strDirCOPIE).Files
    Set oFl = FSO.GetFile(Fichier)
	NomFichier = oFl.Name
	FichierType = oFl.Type
	TailleFichier = FormatNumber((oFl.Size/1024),2) + " Ko"
        DateCrea = oFl.DateLastModified
	MsgBox "Le Fichier " & qq(Ucase(NomFichier)) & " est Daté depuis " & DateCrea & vbcr &_
	"C'est un fichier " & FichierType & vbcr &_
	"et à pour Taille " & TailleFichier,64,"NomFichier+Date+Type+ Taille"
next
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

re

Bonjour
Un grand merci hackoofr
c'est OK
Bonne journée