Discussion :

[kenshin483]

Bonjour,
Je travaille actuellement sur Excel 2010 et je dois réaliser un inventaire de tout un drive pour y effectuer un archivage/tri. J'ai en tout plus de 9 millions de lignes donc le résultat ne tient pas dans une feuille et est peu lisible. Jusqu'à présent j'utilise ce code :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Option Explicit
Dim oSheetD As Worksheet
Dim oSheetF As Worksheet
Dim sRacine As String
Dim ligne1 As Long
Dim ligne As Long
Dim NbFich As Long
Dim fs
Dim Fldracine
Dim oSFld
Dim oFiche
Dim NbFiche
 
 
Sub recup()
 
Set oSheetD = Worksheets("Folders")
Set oSheetF = Worksheets("Files")
 
Application.ScreenUpdating = False
 
'Chemin'
sRacine = "H:\My Documents"
If sRacine = "" Then
    MsgBox "racine"
End If
 
oSheetF.Activate
Range("A1").CurrentRegion.Clear
oSheetD.Activate
ligne1 = 1
ligne = ligne1
NbFiche = 1
 
Range("A" & ligne1).CurrentRegion.Clear
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set Fldracine = fs.getfolder(sRacine)
lit_oFld Fldracine, 1
 
 
End Sub
 
Sub lit_oFld(ByRef oFld, ByVal Niveau)
    oSheetD.Cells(ligne, Niveau) = CStr(oFld.Name)
    oSheetD.Hyperlinks.Add anchor:=oSheetD.Cells(ligne, Niveau), Address:=oFld.Path, TextToDisplay:=oFld.Name
 
    Application.StatusBar = NbFich & "-" & oFld.Name
 
    For Each oFiche In oFld.Files
 
    On Error Resume Next
 
        oSheetF.Cells(NbFiche, 1) = oFiche.Name
        oSheetF.Cells(NbFiche, 2) = oFld.Name
        oSheetF.Cells(NbFiche, 3) = oFiche.DateLastModified
        oSheetF.Cells(NbFiche, 4) = oFiche.Size / 1000 ^ 3      'taille fichier en GO'
        oSheetF.Cells(NbFiche, 5) = oFiche.Path
        oSheetF.Hyperlinks.Add anchor:=oSheetF.Cells(NbFiche, 1), Address:=oFld.Path & "\" & oFiche.Name, TextToDisplay:=oFiche.Name
        NbFiche = NbFiche + 1
 
 
    Next
 
    ligne = ligne + 1
 
 
    For Each oSFld In oFld.subfolders
 
        lit_oFld oSFld, Niveau + 1
    Next
 
 
End Sub

Je dois le modifier car mon but est de déterminer la date "réelle" de sous dossiers, disons niveau -5, afin de voir si la date de ces sous dossiers correspond à la date des fichiers présents dedans. Il faudrait en résultat la liste des dossiers/sous dossiers en arborescence qui auraient une datemodifiée en dessous d'un certain seuil.

J'espère que je suis clair, merci de votre aide

PS : desole pour les accents, je suis sur un QWERTY

[EricDgn]

Bonjour,

Je ne sais pas si cela peut vous aider, mais il est possible d'obtenir la date de création d'un dossier:

Code :

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

1
2
3
4
Sub lit_oFld(ByRef oFld, ByVal Niveau)
    oSheetD.Cells(ligne, Niveau) = CStr(oFld.Name)
    oSheetD.Cells(ligne, Niveau + 1) = oFld.DateCreated   '--- date création de ce dossier
...

Bonne continuation.

[kenshin483]

Bonjour,
Merci pour votre reponse, je voulais utiliser ce critere (date modifie/date cree) mais il n est pas pertinent car les dates des dossiers ne refletent pas leur contenu. Si le dossier est cree en 2015, son contenu date de 1999 par exemple. je recherche un moyen d afficher la date la plus recente de tout le contenu d une arborescence. c est possible de le faire avec des tableaux et en comparant les dates par niveaux ?

PS : desole pour les accents, je suis sur un QWERTY

[patricktoulon]

re
c'est un casse tète ton truc
comment veux tu que ca soit vérifiable
imagine un dossier ou même un sousdossier créé en 2015 dans le quel tu enregistre des fichiers jusqu'à aujourd'hui
ou même qu'en 2017(par exemple donc 2 ans après)tu ai ajouté x sous dossiers et que en 2018 tu ai ajouté ou même modifié des fichiers dans un de ces sous dossiers

comment veux tu qu'il y ai corrélation entre la date du dossier et des fichiers
je dirais même que ta conception de la marche a suivre t'induirait en erreur

il y a la a mon avis probleme de conception dans ton projet c'est pas le bon chemin que tu prends

WRONG WAY!!!!!

[unparia]

Bonjour
Chez moi, si j'ajoute aujourd'hui un fichier dans le dossier "d:\ahah" créé il y a quatre ans , ceci :

Code :

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

MsgBox FileDateTime("D:\ahah")

me retourne bien la date d'aujourd'hui.

Et ce : bien que dans ses propriétés lues depuis l'explorateur, sa date de CREATION demeure celle d'il y a quatre ans

[patricktoulon]

re
unparia relis ca :

Code :

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

Je dois le modifier car mon but est de déterminer la date "réelle" de sous dossiers, disons niveau -5, afin de voir si la date de ces sous dossiers correspond à la date des fichiers présents dedans. Il faudrait en résultat la liste des dossiers/sous dossiers en arborescence qui auraient une datemodifiée en dessous d'un certain seuil.

qu'est ce qu'on fait????? on les prends ou pas les dates en compte (en fonction de ce que j'ai dis précédemment)

imagine un dossier créé en 2015 dans le quel des fichiers de 2019 ont été enregistrés et qu'il est un dossier 2018(donc plus récent) mais qu'il n'y ai que des fichiers 2018
WRONG WAY !!!!

[kenshin483]

Bonjour
Chez moi, si j'ajoute aujourd'hui un fichier dans le dossier "d:\ahah" créé il y a quatre ans , ceci :

Code :

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

MsgBox FileDateTime("D:\ahah")

me retourne bien la date d'aujourd'hui.

Et ce : bien que dans ses propriétés lues depuis l'explorateur, sa date de CREATION demeure celle d'il y a quatre ans

Bonjour, merci, je vais regarder, j utilise la date modifie pour voir jusqu a la periode ou le dossier a ete utilise.

Mais effectivement je me trompe peut etre de raisonnement