Détecter si un répertoire a changé

Bonjour,

Je souhaite détecter si un répertoire a changé. Si un fichier a été ajouté à ce répertoire, je souhaite lancer une application. Quel mécanisme permettrait une telle détection ?

Merci beaucoup pour votre aide.

Tu pourrais avoir un objet FileListBox pointant sur ton répertoire, et avec un Timer, tu vérifies tous les X secondes que File1.ListCount n'a pas changé.

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Private Sub Dir1_Change()
    'ta condition
End Sub

Tu pourrais avoir un objet FileListBox pointant sur ton répertoire, et avec un Timer, tu vérifies tous les X secondes que File1.ListCount n'a pas changé.

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Slyders > Ta commande vérifie qu'on a modifié le chemin sélectionné dans un DirListBox.

Le DirListBox ne s'actualise pas quand on ajoute un répertoire.
Encore moins quand on rajoute un fichier dans un répertoire...
Et le cas de kooroza est bien celui d'un ajout de fichier.


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

faut faire un listage dans un fichier text avec une recherche recursive

et lors de la seconde utilisation du prog ,il faut regarder dans le fichier  text si ce nom est present ligne par ligne

mais tu va avoir le temps d'aller prendre le cafe avant la fin de ton code

Slyders > Ta commande vérifie qu'on a modifié le chemin sélectionné dans un DirListBox.

Le DirListBox ne s'actualise pas quand on ajoute un répertoire.
Encore moins quand on rajoute un fichier dans un répertoire...
Et le cas de kooroza est bien celui d'un ajout de fichier.

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Humpf ...

On dirait que j'ai encore quelques problèmes avec le forum ....



Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Un timer nommé Timer1, 1 FileListBox nommé File1 :




Private Sub Form_Load()

    File1.Path = "C:\"
    Timer1.Interval = 1000
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim nb_Elements As Long
Static old_nb_Elements As Long

    File1.Refresh
    nb_Elements = File1.ListCount
    If old_nb_Elements <> nb_Elements Then
        MsgBox "Ajout ou suppression d'un ou plusieurs fichiers."
        old_nb_Elements = nb_Elements
    End If
End Sub

Ensuite, tu peux jouer avec old_nb_Elements et nb_Elements pour savoir si on a ajouté ou supprimé des éléments.
Et tu peux même savoir combien   [ Abs(old_nb_Elements - nb_Elements)  ]



Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.