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
| Public ListeDateSource, ListeFichierSource As New StringCollection
Public Sub main_serveur()
Call liste_fichier("\\monServeur\monRepertoire") '8min pour 1500 fichiers
End Sub
Public Sub main_local()
Call liste_fichier("C:\monRepertoire") '32s pour 1500 fichiers
End Sub
Public Sub liste_fichier(ByVal iSource As String)
'-----------------------------------------
'------- Traitement des fichiers ---------
'-----------------------------------------
For Each cheminFichierSource As String In Directory.GetFiles(iSource) 'Parcours tous les fichiers du répertoire source
ListeDateSource.Add(File.GetLastWriteTime(cheminFichierSource).Date) 'Ajout de la date du fichier source dans la liste
ListeFichierSource.Add(cheminFichierSource) 'Ajout du nom du fichier source dans la liste
Next
'-----------------------------------------
'--- Traitement des sous répertoires -----
'-----------------------------------------
For Each sousRepertoire As String In Directory.GetDirectories(iSource) 'Parcours les sous répertoires de manière récursive
Call liste_fichier(sousRepertoire)
Next
End Sub |
Partager