Discussion :

[Library]

Bonjour,

J'ai besoin de parcourir tous les fichiers d'un dossier donné et de ses sous-dossiers, et d'effectuer un traitement particulier uniquement si la date de dernière modification est supérieure à une certaine valeur.

J'ai trouvé sur ce site le script suivant, pour parcourir tous les fichiers :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Lire(ByVal sChemin As String, ByVal Recursif As Boolean)
Dim FSO As Object, Dossier As Object, Fichier As String
Dim oFile As scripting.file
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Dossier = FSO.GetFolder(sChemin)
 
    Fichier = Dir$(sChemin & "\*.*")
    Do While Fichier <> ""
        'If Right(Fichier, 4) = ".xls" Or Right(Fichier, 5) = ".xlsx" Or Right(Fichier, 5) = ".xlsm" Then
        NbFichiers = NbFichiers + 1
        With shfiles
            .Cells(NbFichiers, 1) = sChemin
            .Cells(NbFichiers, 2) = Fichier
        End With
        a = Read_expat_file(sChemin & "\", Fichier)
        End If
        Fichier = Dir$()
        Application.StatusBar = "Files : " & NbFichiers & " Directories : " & NbDossiers
 
    Loop
 
    If Recursif Then
        For Each Dossier In Dossier.SubFolders
            NbDossiers = NbDossiers + 1
            If Right(Dossier, 3) <> "old" And Right(Dossier, 3) <> "Old" Then
                Lire Dossier.Path, True
            End If
        Next Dossier
    End If
 
    Set FSO = Nothing
End Sub

J'ai également trouvé cette discussion http://www.developpez.net/forums/d20...feuille-excel/ qui a l'air de faire ce que je veux, mais Excel bugge sur le oFile (en particulier il ne reconnait pas le type scripting.file j'ai l'impression).

Faut-il activer des références particulières pour avoir le type scripting.file ?
Pouvez-vous m'aider à faire évoluer mon code pour obtenir la date de dernière modification des fichiers ?

Merci beaucoup

[oOVaveOo]

bonjour,

La propriété

Code :

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

object.DateLastModified

peut être la solution, objet étant un file dans ce cas là.

[Library]

mon problème est que je ne crois pas avoir d'objet file dans mon code.

en particulier, je ne sais pas ce que l'instruction

Code :

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

Dir$(sChemin & "\*.*")

fait

[oOVaveOo]

Cette instruction te liste tous les fichier contenus dans le dossier schemin et ses sous-dossiers.

[ucfoutu]

Faut-il activer des références particulières pour avoir le type scripting.file ?

Ben ouais, justement

Moi, je te propose donc (comme d'hab) de laisser FSO là où il est (ou, d'ailleurs, il risque de ne pas être ...) et de rester indépendant ...
Voilà donc, avec VB uniquement, ce que tu as écrit, complété et avec option...:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Private Sub Command1_Click()
   Dim repertoire As String, date_limite As Date
   repertoire = "d:\monoutil" ' ici ton répertoire à fouiller
   date_limite = "01/01/1996" ' ici ta date limite
   cherchons repertoire, date_limite
End Sub
 
Sub cherchons(ByVal rep As String, ByVal borne As Date)
  Dim nomfic As String, nbr As Integer
  Dim tremplin As String
  Dim i As Integer
  If Right$(rep, 1) <> "\" Then rep = rep & "\"
  nomfic = Dir$(rep, vbDirectory)
  nbr = 1
  Do While nomfic <> ""
    If nomfic <> "." And nomfic <> ".." Then
      tremplin = rep & nomfic
      If GetAttr(tremplin) And vbDirectory And UCase(Right(tremplin, 3))  <>  "OLD" Then
        cherchons tremplin, borne
        nomfic = Dir$(rep, vbDirectory)
        For i = 2 To nbr
          nomfic = Dir$
        Next
      Else
        If FileDateTime(tremplin) < borne Then
          'si tu veux mettre le résultat dans une listbox enlève le ' de la ligne suivante)
          'List1.AddItem tremplin & ")" & "  " & FileDateTime(tremplin) '<<<<<=========
          'si tu veux supprimer directement le fichier (enlève le ' de la ligne suivante)
          'Kill tremplin & ")" & "  " & FileDateTime(tremplin)  '<<<<<=========
        End If
      End If
    End If
    nomfic = Dir$
    nbr = nbr + 1
  Loop
End Sub

Regarde les lignes marqués d'un <<<<=====
Laisse celle(s) qui te convient/conviennent en fonction de ce que tu veux faire.
La première si tu veux afficher ou non dans une listbox (à insérer alors, avec le nom List1)
La deuxième si tu veux zigouiller les fichiers ainsi trouvés
Il va de soi que tu peux faire toutes les combinaisons possibles (lister et zigouiller - Lister seulement - zigouiller seulement).
Voilà

[Library]

Merci !

Finalement je ne me suis servi que de

Code :

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

FileDateTime(fichier)

, qui a l'air de faire tout ce que je veux