detection de nouveau fichier dans des sous repertoire
2 réponses
bastientot
BOnjour,
j'aimerais savoir s'il y a une possibilit=E9 de detecter l'arriv=E9e de
nouveau fichiers dans un repertoire et sous repertoire par rapport a
une date du style jj/mm/aaaa
je pensais a un truc comme =E7a je lsite tout les fichiers des
repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je
n'affiche que les news et j'affiche un msgbox.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Sous les versions autres qu'Excel 2007, il y avait la méthode FileSearch de l'objet Application qui permettait de faire cela. Mais elle n'existe plus sous excel 2007.
Il y a quelque comme cela accessible à toutes les versions.
'Déclaration des variables dans le haut du module Dim NbFich As Long Dim MaDate As Date '------------------------------------- Sub CompteFichiers() NbFich = 0 'la date de ton choix MaDate = DateSerial(2009, 1, 1) 'le répertoire de ton choix racine = "C:Userspoweruser" Set FSO = CreateObject("Scripting.FileSystemObject") Set dossier_racine = FSO.getfolder(racine) Lit_dossier dossier_racine MsgBox NbFich End Sub '------------------------------------- Sub Lit_dossier(ByRef dossier) For Each d In dossier.SubFolders Lit_dossier d Next For Each f In dossier.Files 'C'est ici que se fait la vérification 'Selon que tu désires, tu fais le test approprié 'Si la dernière fois que le fichier a été modifié 'est plus récent que la date déterminée ! 'Tu peux utilisé aussi la caractéristique : DateCreated 'en lieu et place de DateLastModified If f.DateLastModified > MaDate Then 'ici c'est un compteur mais libre à toi de récupérer 'le nom du fichier ... F.Name NbFich = NbFich + 1 End If Next End Sub '-------------------------------------
a écrit dans le message de groupe de discussion :
BOnjour,
j'aimerais savoir s'il y a une possibilité de detecter l'arrivée de nouveau fichiers dans un repertoire et sous repertoire par rapport a une date du style jj/mm/aaaa
je pensais a un truc comme ça je lsite tout les fichiers des repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je n'affiche que les news et j'affiche un msgbox.
Merci de votre aide.
Sous les versions autres qu'Excel 2007, il y avait
la méthode FileSearch de l'objet Application
qui permettait de faire cela. Mais elle n'existe
plus sous excel 2007.
Il y a quelque comme cela accessible à toutes les versions.
'Déclaration des variables dans le haut du module
Dim NbFich As Long
Dim MaDate As Date
'-------------------------------------
Sub CompteFichiers()
NbFich = 0
'la date de ton choix
MaDate = DateSerial(2009, 1, 1)
'le répertoire de ton choix
racine = "C:Userspoweruser"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = FSO.getfolder(racine)
Lit_dossier dossier_racine
MsgBox NbFich
End Sub
'-------------------------------------
Sub Lit_dossier(ByRef dossier)
For Each d In dossier.SubFolders
Lit_dossier d
Next
For Each f In dossier.Files
'C'est ici que se fait la vérification
'Selon que tu désires, tu fais le test approprié
'Si la dernière fois que le fichier a été modifié
'est plus récent que la date déterminée !
'Tu peux utilisé aussi la caractéristique : DateCreated
'en lieu et place de DateLastModified
If f.DateLastModified > MaDate Then
'ici c'est un compteur mais libre à toi de récupérer
'le nom du fichier ... F.Name
NbFich = NbFich + 1
End If
Next
End Sub
'-------------------------------------
<bastientot@gmail.com> a écrit dans le message de groupe de discussion :
2a0977bf-b186-4d9e-b2a9-21d0d71b0d55@m40g2000yqh.googlegroups.com...
BOnjour,
j'aimerais savoir s'il y a une possibilité de detecter l'arrivée de
nouveau fichiers dans un repertoire et sous repertoire par rapport a
une date du style jj/mm/aaaa
je pensais a un truc comme ça je lsite tout les fichiers des
repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je
n'affiche que les news et j'affiche un msgbox.
Sous les versions autres qu'Excel 2007, il y avait la méthode FileSearch de l'objet Application qui permettait de faire cela. Mais elle n'existe plus sous excel 2007.
Il y a quelque comme cela accessible à toutes les versions.
'Déclaration des variables dans le haut du module Dim NbFich As Long Dim MaDate As Date '------------------------------------- Sub CompteFichiers() NbFich = 0 'la date de ton choix MaDate = DateSerial(2009, 1, 1) 'le répertoire de ton choix racine = "C:Userspoweruser" Set FSO = CreateObject("Scripting.FileSystemObject") Set dossier_racine = FSO.getfolder(racine) Lit_dossier dossier_racine MsgBox NbFich End Sub '------------------------------------- Sub Lit_dossier(ByRef dossier) For Each d In dossier.SubFolders Lit_dossier d Next For Each f In dossier.Files 'C'est ici que se fait la vérification 'Selon que tu désires, tu fais le test approprié 'Si la dernière fois que le fichier a été modifié 'est plus récent que la date déterminée ! 'Tu peux utilisé aussi la caractéristique : DateCreated 'en lieu et place de DateLastModified If f.DateLastModified > MaDate Then 'ici c'est un compteur mais libre à toi de récupérer 'le nom du fichier ... F.Name NbFich = NbFich + 1 End If Next End Sub '-------------------------------------
a écrit dans le message de groupe de discussion :
BOnjour,
j'aimerais savoir s'il y a une possibilité de detecter l'arrivée de nouveau fichiers dans un repertoire et sous repertoire par rapport a une date du style jj/mm/aaaa
je pensais a un truc comme ça je lsite tout les fichiers des repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je n'affiche que les news et j'affiche un msgbox.
Merci de votre aide.
bastientot
merci de ton aide je vais tester l'affichage des ficheir dans la feuille excel.
bonne jouréne.
On 12 fév, 13:54, "michdenis" wrote:
Sous les versions autres qu'Excel 2007, il y avait la méthode FileSearch de l'objet Application qui permettait de faire cela. Mais elle n'existe plus sous excel 2007.
Il y a quelque comme cela accessible à toutes les versions.
'Déclaration des variables dans le haut du module Dim NbFich As Long Dim MaDate As Date '------------------------------------- Sub CompteFichiers() NbFich = 0 'la date de ton choix MaDate = DateSerial(2009, 1, 1) 'le répertoire de ton choix racine = "C:Userspoweruser" Set FSO = CreateObject("Scripting.FileSystemObject") Set dossier_racine = FSO.getfolder(racine) Lit_dossier dossier_racine MsgBox NbFich End Sub '------------------------------------- Sub Lit_dossier(ByRef dossier) For Each d In dossier.SubFolders Lit_dossier d Next For Each f In dossier.Files 'C'est ici que se fait la vérification 'Selon que tu désires, tu fais le test approprié 'Si la dernière fois que le fichier a été modifié 'est plus récent que la date déterminée ! 'Tu peux utilisé aussi la caractéristique : Dat eCreated 'en lieu et place de DateLastModified If f.DateLastModified > MaDate Then 'ici c'est un compteur mais libre à toi de ré cupérer 'le nom du fichier ... F.Name NbFich = NbFich + 1 End If Next End Sub '-------------------------------------
a écrit dans le message de groupe de discussion :
BOnjour,
j'aimerais savoir s'il y a une possibilité de detecter l'arrivée de nouveau fichiers dans un repertoire et sous repertoire par rapport a une date du style jj/mm/aaaa
je pensais a un truc comme ça je lsite tout les fichiers des repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je n'affiche que les news et j'affiche un msgbox.
Merci de votre aide.
merci de ton aide je vais tester l'affichage des ficheir dans la
feuille excel.
bonne jouréne.
On 12 fév, 13:54, "michdenis" <michde...@hotmail.com> wrote:
Sous les versions autres qu'Excel 2007, il y avait
la méthode FileSearch de l'objet Application
qui permettait de faire cela. Mais elle n'existe
plus sous excel 2007.
Il y a quelque comme cela accessible à toutes les versions.
'Déclaration des variables dans le haut du module
Dim NbFich As Long
Dim MaDate As Date
'-------------------------------------
Sub CompteFichiers()
NbFich = 0
'la date de ton choix
MaDate = DateSerial(2009, 1, 1)
'le répertoire de ton choix
racine = "C:Userspoweruser"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = FSO.getfolder(racine)
Lit_dossier dossier_racine
MsgBox NbFich
End Sub
'-------------------------------------
Sub Lit_dossier(ByRef dossier)
For Each d In dossier.SubFolders
Lit_dossier d
Next
For Each f In dossier.Files
'C'est ici que se fait la vérification
'Selon que tu désires, tu fais le test approprié
'Si la dernière fois que le fichier a été modifié
'est plus récent que la date déterminée !
'Tu peux utilisé aussi la caractéristique : Dat eCreated
'en lieu et place de DateLastModified
If f.DateLastModified > MaDate Then
'ici c'est un compteur mais libre à toi de ré cupérer
'le nom du fichier ... F.Name
NbFich = NbFich + 1
End If
Next
End Sub
'-------------------------------------
<bastien...@gmail.com> a écrit dans le message de groupe de discussion :
2a0977bf-b186-4d9e-b2a9-21d0d71b0...@m40g2000yqh.googlegroups.com...
BOnjour,
j'aimerais savoir s'il y a une possibilité de detecter l'arrivée de
nouveau fichiers dans un repertoire et sous repertoire par rapport a
une date du style jj/mm/aaaa
je pensais a un truc comme ça je lsite tout les fichiers des
repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je
n'affiche que les news et j'affiche un msgbox.
merci de ton aide je vais tester l'affichage des ficheir dans la feuille excel.
bonne jouréne.
On 12 fév, 13:54, "michdenis" wrote:
Sous les versions autres qu'Excel 2007, il y avait la méthode FileSearch de l'objet Application qui permettait de faire cela. Mais elle n'existe plus sous excel 2007.
Il y a quelque comme cela accessible à toutes les versions.
'Déclaration des variables dans le haut du module Dim NbFich As Long Dim MaDate As Date '------------------------------------- Sub CompteFichiers() NbFich = 0 'la date de ton choix MaDate = DateSerial(2009, 1, 1) 'le répertoire de ton choix racine = "C:Userspoweruser" Set FSO = CreateObject("Scripting.FileSystemObject") Set dossier_racine = FSO.getfolder(racine) Lit_dossier dossier_racine MsgBox NbFich End Sub '------------------------------------- Sub Lit_dossier(ByRef dossier) For Each d In dossier.SubFolders Lit_dossier d Next For Each f In dossier.Files 'C'est ici que se fait la vérification 'Selon que tu désires, tu fais le test approprié 'Si la dernière fois que le fichier a été modifié 'est plus récent que la date déterminée ! 'Tu peux utilisé aussi la caractéristique : Dat eCreated 'en lieu et place de DateLastModified If f.DateLastModified > MaDate Then 'ici c'est un compteur mais libre à toi de ré cupérer 'le nom du fichier ... F.Name NbFich = NbFich + 1 End If Next End Sub '-------------------------------------
a écrit dans le message de groupe de discussion :
BOnjour,
j'aimerais savoir s'il y a une possibilité de detecter l'arrivée de nouveau fichiers dans un repertoire et sous repertoire par rapport a une date du style jj/mm/aaaa
je pensais a un truc comme ça je lsite tout les fichiers des repertoires et supprimes tous les fichiers avant jj/mm/aaaa et je n'affiche que les news et j'affiche un msgbox.
