olivthill | En VBS, faire :
Code :
- date_min = "20090101"
- date_max = "20090110"
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set f = fso.GetFolder("C:\un_repertoire" )
- Set fc = f.Files
- For Each f1 in fc
- date_fichier_yyyymmdd = mid(f1.DateLastModified,7,4) _
- & mid(f1.DateLastModified,4,2) _
- & mid(f1.DateLastModified,1,2)
- If ( date_fichier_yyyymmdd >= date_min _
- And date_fichier_yyyymmdd <= date_max) Then
- Wscript.Echo f1.Name & VbTab & f1.DateLastModified
- End If
- Next
|
Message édité par olivthill le 09-01-2009 à 17:54:06
|