Discussion :

[tedparker]

Bonjour,

J'aimerais trier des fichiers dans l'ordre décroissant de leur taille et ça par le VB.
En effet, j'importe des fichiers d'un dossier un par un dans une table d'une base ACCESS et je dois a chaque fois faire un traitement sur cette table.
J'aimerais donc importer le plus gros fichier en dernier pour réduire les traitements.
Merci

[cafeine]

Hello,

ci-joint un code qui permet de charger une table TblFiles (File, Size) les noms et tailles des fichiers ... il suffit ensuite d'ouvrir un recordset avec un tri sur Size pour lancer tes importations dans l'ordre souhaité.

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
Sub LoadFileList(ByVal strFld As String)

    ' Utilisation de MS Scripting Runtime
    ' Penser à l'ajouter en référence
    Dim fso As New FileSystemObject
    Dim fil As Scripting.File
    Dim fic As String
    
    ChDrive Left(strFld, 1)
    ChDir strFld
    
    DoCmd.SetWarnings False
    
    ' boucle sur les fichiers d'un répertoire
    fic = Dir("*.*")
    Do While Len(fic) > 0
        Set fil = fso.GetFile(fic)
        DoCmd.RunSQL "INSERT INTO tblFiles VALUES ('" & fil.Name & "', " & fil.Size & ")"
        fic = Dir
    Loop
    
    DoCmd.SetWarnings True
    
    Set fil = Nothing
    Set fso = Nothing

End Sub

[tedparker]

Merci jvais tester ça et ça m'a l'air plus qu'intelligent.
La prochaine fois jréfléchirais pour pas m'en vouloir de trouver une solution aussi simple.
Merci encore