Discussion :

[qmike]

Bonjour

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

Code :

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

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

[hackoofr]

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

Code :

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

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 :

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
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

[qmike]

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