[VB6] Scrutation d'un répertoire
Résolu
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
-
4 mai 2006 à 10:36
aurelien2723 Messages postés 181 Date d'inscription jeudi 12 janvier 2006 Statut Membre Dernière intervention 26 janvier 2011 - 5 mai 2006 à 14:06
aurelien2723 Messages postés 181 Date d'inscription jeudi 12 janvier 2006 Statut Membre Dernière intervention 26 janvier 2011 - 5 mai 2006 à 14:06
A voir également:
- [VB6] Scrutation d'un répertoire
- Vb6 instr ✓ - Forum VB.NET
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
- Vb6 decompiler - Forum Visual Basic 6
3 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
4 mai 2006 à 14:01
4 mai 2006 à 14:01
Salut,
Il y a cette classe déposer par Renfield qui pourrait t'interesser
http://www.vbfrance.com/codes/SURVEILLER-MODIFS-REPERTOIRE_17157.aspx
Il y a cette classe déposer par Renfield qui pourrait t'interesser
http://www.vbfrance.com/codes/SURVEILLER-MODIFS-REPERTOIRE_17157.aspx
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
4 mai 2006 à 13:26
4 mai 2006 à 13:26
Bonjour
Peut-être en récupérant la date de dernière modification du Folder.
Et faire une boucle DateLastModified =< Date.
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("d:\test")
s = UCase("d:\test") &vbCrLf
s = s & "Créé le : " & f.DateCreated &vbCrLf
s = s & "Dernière accès le : " & f.DateLastAccessed &vbCrLf
s = s & "Dernière modifcation le: " & f.DateLastModified
MsgBox s
Set fso = Nothing
Set f = Nothing
jean-marc
Peut-être en récupérant la date de dernière modification du Folder.
Et faire une boucle DateLastModified =< Date.
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("d:\test")
s = UCase("d:\test") &vbCrLf
s = s & "Créé le : " & f.DateCreated &vbCrLf
s = s & "Dernière accès le : " & f.DateLastAccessed &vbCrLf
s = s & "Dernière modifcation le: " & f.DateLastModified
MsgBox s
Set fso = Nothing
Set f = Nothing
jean-marc
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
1
5 mai 2006 à 14:06
5 mai 2006 à 14:06
ok, je l'ai ajouter, quelque peu modifier ca marche niquel :)
Merci a toi Willi et surtout à Renfield :)
Merci a toi Willi et surtout à Renfield :)
