date fichierRésolu

Question

bonjour.
est- ce que quelqu'un sait comment on peut faire avec vba excel pour compter le nombre de fichiers(.htm) d'un repertoire dont la date de cr&#233;ation est comprise dans une certaine fourchette?j'ai ce bout de code mais je n'arrive pas &#224; sp&#233;cifier les dates de cr&#233;ation que je veux dans .lastmodified.

Sub Recherche()
  With Application.FileSearch
    .NewSearch
    .LookIn = "D:	ravail afif"
    .FileName = "*.htm"
    .LastModified=mso msoLastModifiedAnyTime
   .SearchSubFolders = True
    .Execute
    For Ctr = 1 To .FoundFiles.Count
      Cells(Ctr, 1) = .FoundFiles(Ctr)
    Next
  End With
End Sub

cs_JMO · Accepted Answer

Bonjour, 

Exemple avec Fso pour d&#233;nombrer les fichiers non modifi&#233;s depuis 5 jours.
Il suffit de rajouter une variable pour tester entre 2 dates et &#233;ventuellement
subFolder pour les sous-r&#233;pertoires.
En utilisant WMI c'est aussi possible.

Dim Path
Path  = "d:\KRNSDE" 


MsgBox ShowFolderList(Path),vbmessage,"Fichiers pr&#233;sents dans le  r&#233;pertoire"
Function ShowFolderList(strPath) 
Dim fso, Dossiers, fic, fichiers, strListe, f, fdate, fname, dtDiffFile, nbre_fichier 
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(path)
Set fic = Dossiers.Files


For Each fichiers in fic 
    Set f = fso.GetFile(fichiers)
    fdate = f.DateLastModified
    fname = f.Name
    dtDiffFile = DateDiff("d", Now, fdate)
    If dtDiffFile <= -5 Then 
       MsgBox  "Le fichier " & Path & fname & " sera supprim&#233; car cr&#233;&#233; le " & fdate
'''''      fso.DeleteFile(Path & fname)
nbre_fichier = nbre_fichier + 1
    Else 
       MsgBox "Le fichier " & Path & fname & " ne sera pas supprim&#233; car cr&#233;&#233; le " & fdate
   End If
   strListe = strListe & vbcrlf & vbcrlf & fname & " " & fdate 
Next
ShowFolderList = "Nombre de fichiers: " nbre_fichier &vbCrLf& strListe 
End Function

Comme Julien, je r&#233;pond aux &#233;ventuelles questions.

jean-marc

jrivet · Answer

Salut,

As tu essayer avec le FileSyStemObject ?

Tu pourras grace a ceci utilise l'objet File qui possede les Propriete :

DateCreated
DateLastAccessed
DateLastModified

Tu pourras aussi utiliser l'objet Folder qui represente tout un repertoire avec ses collection Files et SubFolders..

Voila en esperant avoir pu t'aider un peu.

Si tu veux plus d'aide sur le FileSystemObjet no problem.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_JMO · Answer

Bonsoir,

ShowFolderList = "Nombre de fichiers: " & nbre_fichier &vbCrLf& strListe

panorama12 · Answer

salut.
en fait j'ai utilis&#233;  filedatetime ca marche aussi bien.
merci

Date fichier

4 réponses

Discussions similaires