bonjour,
savez vous comment je peux faire pour trouver le fichier le plus ancien avec une certaine extension dans un répértoire ?
Par exemple, si je demande les .txt; je voudrais qu'il me sorte le plus ancien.
Merci beaucoup à tous.
bonjour,
savez vous comment je peux faire pour trouver le fichier le plus ancien avec une certaine extension dans un répértoire ?
Par exemple, si je demande les .txt; je voudrais qu'il me sorte le plus ancien.
Merci beaucoup à tous.
bonsoir
tu peux essayer
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47 Option Explicit Option Base 1 Sub triDecroissant_fichiersRepertoire_dateDreation() Dim Fichier As String, Chemin As String 'necessite d'activer la reference Microsoft Scripting RunTime Dim Fso As Scripting.FileSystemObject Dim FileItem As Scripting.File Dim Tableau() Dim m As Integer, i As Integer Dim z As Byte, Valeur As Byte Dim Cible As Variant '---lister les fichiers du répertoire --- Chemin = "C:\Documents and Settings\michel\excel" Fichier = Dir(Chemin & "\*.txt") Do m = m + 1 ReDim Preserve Tableau(2, m) Tableau(1, m) = Fichier Set Fso = CreateObject("Scripting.FileSystemObject") Set FileItem = Fso.GetFile(Chemin & "\" & Fichier) Tableau(2, m) = Left(FileItem.DateCreated, 10) Fichier = Dir Loop Until Fichier = "" '---trier les fichiers par ordre décroissant de création --- Do Valeur = 0 For i = 1 To m - 1 If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then For z = 1 To 2 Cible = Tableau(z, i) Tableau(z, i) = Tableau(z, i + 1) Tableau(z, i + 1) = Cible Next z Valeur = 1 End If Next i Loop While Valeur = 1 '--- le fichier le plus ancien --- MsgBox Tableau(1, m) & vbLf & Tableau(2, m) End Sub
bonne soiree
michel
merci de la réponse.
Y aurait pas une fonction VB deja toute faire pour ça ?
Merci.
non, il faut utiliser FSO !
il existe des exemples dans la FAQ
avant de poster FAQ VB - Page sources VB - Cours VB
Mes tutoriels : VB - VB.NET et ASP.NET
N'oubliez pas Merci !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager