liste des sous-doussiers et comptabiliser leurs fichiers

Question

Bonjour,

J'ai actuellement un code qui identifie les sous-répertoires créé à la date du jour et comptabilise le nombre de fichiers dans chacun d'eux. Jusque là tout va bien....

Quelqu'un à eu la bonne idée de paralléliser les traitements et je suis maintenant dans l'obligation de changer une partie de mon code en ajoutant un nouveau contrôle....

Effectivement, il faudrait désormais identifier les sous-répertoires créés depuis J-1 19:00 (=> mon contrôle s'exécute à J 06:00) et comptabiliser comme avant le nombre de fichiers dans chacun d'eux.

Voici mon code actuel :

************************************************************************
Option Explicit                                                      
Const MyFile = "D:\TopxAgent\FicDO_BTCH.TXT"                         
Dim objFso, objTextFile                                              
Set objFso = CreateObject("Scripting.FileSystemObject")              
Set objTextFile = objFso.CreateTextFile(MyFile, True)                
                                                                     
Call FnShowFolderList("P:\K\ARCHIVE\Batch", Date)                    
                                                                     
objTextFile.Close                                                    
Set objTextFile = Nothing                                            
Set objFso = Nothing                                                 
'################################################                    
Function FnShowFolderList(argPath, argDate)                          
   Dim objSubFolderItem                                              
                                                                     
   If Not objFso.FolderExists(argPath) Then Exit Function            
                                                                     
   For Each objSubFolderItem In objFso.GetFolder(argPath).SubFolders 
       If DateValue(objSubFolderItem.DateCreated) = argDate Then     
          objTextFile.Write objSubFolderItem.Path & Space(1) &_      
                            objSubFolderItem.Files.Count & vbcrlf    
       End If                                                        
       FnShowFolderList objSubFolderItem.Path, argDate               
   Next                                                              
End Function                                                         

************************************************************************

J'ai essayé de modifier mon code en jouant avec la valeur DateLasModified mais en vain...... Je suis complètement bloqué et ne vois pas comment m'en sortir. Peut-être quelqu'un aurait une idée à me proposer !!!!

Vous remerciant par avance ;)

Tchou

Utilisateur anonyme · Answer

Bonjour,
Alors pour moi il suffit de changer :

Call FnShowFolderList("P:\K\ARCHIVE\Batch", Date)

Par

Dim dateToSearch = 'XX/XX/XXXX'
Call FnShowFolderList("P:\K\ARCHIVE\Batch", dateToSearch)

ou un truc dans le genre (je ne bosse pas beaucoup avec VB)

fabefouge · Answer

Bonjour alexandrevandenberghe,

Le principe est là, je suis d'accord avec toi mais je dois l'automatiser donc il faut définir cette variable date à J-1 et en plus positionner une condition de façon à ne récupérer que les sous-répertoires créés à partir de 19h00(=> de J-1 biensur).....

On progresse ;)

Merci encore

Tchou

Utilisateur anonyme · Answer

Salut,
Alors c'est codé avec Excel 2010, en esperant que cela fonctionne pour toi:

************************************************************************
Option Explicit
Const MyFile =  "D:\TopxAgent\FicDO_BTCH.TXT"
Dim objFso, objTextFile
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFso.CreateTextFile(MyFile, True)

[b]Dim dateToSearch As Date
dateToSearch = DateAdd("d", -1, Date) & " 19:00:00"/b

Call FnShowFolderList("P:\K\ARCHIVE\Batch",  dateToSearch )

objTextFile.Close
Set objTextFile  = Nothing
Set objFso = Nothing
'################################################
Function FnShowFolderList(argPath, argDate)
Dim objSubFolderItem

If Not objFso.FolderExists(argPath) Then Exit Function

For Each objSubFolderItem In objFso.GetFolder(argPath).SubFolders
If objSubFolderItem.DateCreated >= argDate Then
objTextFile.Write objSubFolderItem.Path & Space(1) &_
objSubFolderItem.Files.Count & vbcrlf
End If
FnShowFolderList objSubFolderItem.Path, argDate
Next
End Function

************************************************************************

fabefouge · Answer

Et bien un grand merci pour ton code. J'ai juste modifié la ligne :

Dim dateToSearch As Date    par    Dim dateToSearch

et ça marche nikel ;)

Encore merci et bonne continuation

 
Tchou

Liste des sous-doussiers et comptabiliser leurs fichiers

4 réponses

Votre réponse

Discussions similaires