Suivi d'état d'un dossier

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Janvier 2010

• #2

Re : Suivi d'état d'un dossier

Bonjour Hamidap et bienvenue sur le forum

voici un code pêché sur le site de Boisgontier
à adapter selon tes besoins

Code:

[B]Nombre de fichiers d'un répertoire et taille[/B]
 
repertoire = ThisWorkbook.Path & "\"
masque = repertoire & "*.xls"
nf = Dir(masque)
taille = 0
n = 0
Do While nf <> ""
  taille = taille + FileLen(repertoire & "\" & nf)
  n = n + 1
  nf = Dir()
Loop
MsgBox n
MsgBox taille

je pense qu'en ayant cela dans une macro qui scrute régulièrement le dossier, chaque changement de la valeur "n" devrait te signaler l'ajout d'un fichier

à+
Philippe
.

 

Vote positif 0 Vote négatif

H

hamidap

Guest

• 27 Janvier 2010

• #3

Re : Suivi d'état d'un dossier

Bonjour Philippe,

Je vais essayer d'adapter ça à mon contexte. Merci de ta réponse.

 

Vote positif 0 Vote négatif

H

hamidap

Guest

• 3 Février 2010

• #4

Re : Suivi d'état d'un dossier

Bonjour

je relance la discussion pour savoir si quelqu'un aurait une fonction qui scrute un dossier avec une certaine fréquence.

Merci

 

Vote positif 0 Vote négatif

H

hamidap

Guest

• 11 Février 2010

• #5

Re : Suivi d'état d'un dossier

Up..................

 

Vote positif 0 Vote négatif