Discussion :

[fancychipie]

Bonjour,

je débute en vb (mais je connais bien VBA) et je voulais comment vousferiez pour détecter la modification d'un dossier. Je m'explique: je voudrais détecter dès qu'un fichier est modifié ou alors rajouté ou supprimé dans un dossier.

Merci d'avance!!

Maxime

[jmfmarques]

Il te faudra installer un Timer et vérifier (instructions dans le Timer) périodiquement la dernière date de modification de ton fichier...

Comment connaitre cette date ? : Tu trouveras un sujet ouvert (et le code correspondant) à ce propos dans la FAQ de VB, sur ce site

[fancychipie]

Tout d'abord,je tiens à vous remercier pour votre aide.
J'ai fait comme vous me l'aviez indiqué mais je n'ai cependant pas trouvé pour le timer.
En ce qui concerne le reste, j'ai trouvé autre chose qui peut marcher:récupérer la taille du dossier que je veux surveiller. cependant, le code que j'ai trouvé dans le faq ne fonctionne pa.j'ai une erreur "user type undefined"
Voici le code des fonctions...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Enum UniteMemoire
    octets = 1
    kiloOctets = 2
    megaOctets = 3
End Enum
 
Public Function TailleRepertoire(f As Folder, Optional unite As UniteMemoire = 1) As Long
 
Dim s As Long
 
s = f.Size
Select Case unite
    Case 2:
        TailleRepertoire = Int(s / 1024)
    Case 3:
        TailleRepertoire = Int(s / 1048576)
    Case Else:
        TailleRepertoire = s
End Select
 
End Function

... et celui de la macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Test()
 
Dim fs As FileSystemObject, f As Folder, strTaille As String
 
Set fs = New FileSystemObject
Set f = fs.GetFolder("c:\windows")
 
strTaille = Format(TailleRepertoire(f), "##,##0 octets") & vbCrLf & _
            Format(TailleRepertoire(f, kiloOctets), "##,##0 Ko") & vbCrLf & _
            Format(TailleRepertoire(f, megaOctets), "##,##0 Mo")
MsgBox strTaille
 
End Sub

Je ne comprends pas trop.
En ce qui concerne le timer je vais continuer à chercher!
Merci bien!
Maxime

[Asdorve]

ton erreur, elle est sur quelle ligne??

[fancychipie]

En fait, j'ai réussi à trouver mon problème!
Il fallait rajouter une référence!!!
Je débute, ca va rentrer!!
Maintenant ca marche...
Cependant, il faut maintenant que je fasse une sorte de boucle qui compare la taille à t et à t+1. Je sais pas si vous me suivez...
Dès que la taille varie, on informe l'utilisateur. C'est possible?
Merci!
Maxime

[Asdorve]

Comme le disait justement jmfmarques, si tu utilises un Timer, tu pourras exécuter le traitement chaque x secondes (selon comment tu le paramètres).
Ainsi, dès que la taille change, tu le sais.