Discussion :

[QuestVba]

Bonjour,

Je vous fais part de deux petits codes que je souhaite optimiser.

Le premier a pour but de boucler dans un répertoire et de récupérer le nombre de fichiers commençant par 'SEE'. Qu'en pensez-vous ?

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
Function NumberFilesSee(ByVal Folder As String) As Long
    Dim Fso As Scripting.FileSystemObject
    Dim fld As Scripting.Folder
    Dim fil As Scripting.File
    Dim NbrFilesSee As Long
 
    Set Fso = New Scripting.FileSystemObject
    Set fld = Fso.GetFolder(Folder)
    For Each fil In fld.Files
        If Left(fil.Name, 3) = "SEE" Then
            NbrFilesSee = NbrFilesSee + 1
        End If
    Next fil
    NumberFilesSee = NbrFilesSee
    Set Fso = Nothing
End Function

Le seconde a pour but de tourner dans le même répertoire et de m'indiquer le nombre de fichiers commençant soit par 'SEE' soit par une série (8 permiers caractères) de caractères définis. Qu'en pensez-vous ?

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
Function NumberFilesSeeAndUser(ByVal Folder As String) As Long
    Dim Fso As Scripting.FileSystemObject
    Dim fld As Scripting.Folder
    Dim fil As Scripting.File
    Dim NbrFilesSeeAndUser As Long
 
    Set Fso = New Scripting.FileSystemObject
    Set fld = Fso.GetFolder(Folder)
    For Each fil In fld.Files
        If Left(fil.Name, 3) = "SEE" Then
            NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        End If
        If Left(fil.Name, 8) = "00000221" Or Left(fil.Name, 8) = "00061065" _
            Or Left(fil.Name, 8) = "00101663" Or Left(fil.Name, 8) = "00000413" _
            Or Left(fil.Name, 8) = "00060935" Or Left(fil.Name, 8) = "00060777" _
            Or Left(fil.Name, 8) = "00101142" Or Left(fil.Name, 8) = "00060106" Then
                NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        End If
    Next fil
    NumberFilesSeeAndUser = NbrFilesSeeAndUser
    Set Fso = Nothing
End Function

Ces deux fonctions me renvoient les nombres dont j'ai besoin pour la suite du traitement.

Temps de réaction :

• Quand j'ai 100 fichiers : respectivement 00:00:00:31 et 00:00:00:61
• Quand j'ai 200 fichiers : respectivement 00:00:00:61 et 00:00:01:30
• Quand j'ai 376 fichiers : respectivement 00:00:01:95 et 00:00:10:20

Et comme je n'ai pas dix dossiers par jours, le porquoi de la demande. Si vous avez des idées ou peut-être est-ce le matériel ou le réseau qui est foireux ? A votre avis ?

[Jean-Philippe André]

Salut,

le fait de passer par chaque fichier de ton dossier me semble long effectivement. Peut-etre que passer par une boucle Dir qui pointe directement sur les fichiers concernes te ferait gagner du temps

Code :

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

1
2
3
4
5
6
7
8
9
10
'dans l'idee
dim compteur1 as Integer
Dim compteur2 as Integer
dim tmp as string
tmp=Dir(Folder & "\SEE*.*")
Do until tmp= ""
compteur1 = compteur1+1
tmp = Dir()
Loop
'meme chose pour le compteur2

[QuestVba]

Bon, je teste et il me met tout de suite tmp="". Donc, il s'arrête.
Je dois oublier quelque chose.

je cherche et je trouve génial

Bon pour un critère c'est bon.

Code :

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

Fichier = Dir(Chemin & "SEE*.Digitsol")

Mais comment faire pour utiliser plusieurs critères en même temps ?
1er critère : SEE
2e critère (de rattrapage) : 00000221 + 00061065 + 00101663 + 00000413 + 00060935 + 00060777 + 00101142 + 00060106 -->> Les chiffres représentent les 8 premiers caractères qui remplassent parfois le SEE

[QuestVba]

Bon pour éviter des modifictaions sur modifications, ...

Je fais les tests les uns après les autres et c'est magique. La rapidité est ......................... super hyper méga rapide.

Donc un très grand merci à jpcheck

[QuestVba]

Donc, pour mon premier test, je fais ceci:

Code :

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

1
2
3
4
5
6
7
8
9
    Dim Chemin As String, Fichier As String
    Chemin = Folder
    Fichier = Dir(Chemin & "SEE*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSee = NbrFilesSee + 1
        Fichier = Dir()
    Loop
 
NumberFilesSee = NbrFilesSee

Pour le second :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
    Dim Chemin As String, Fichier As String
    Chemin = Folder
    Fichier = Dir(Chemin & "SEE*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
'1
    Fichier = Dir(Chemin & "00000221*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
'2
    Fichier = Dir(Chemin & "00061065*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
'3
    Fichier = Dir(Chemin & "00101663*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
 
'4
    Fichier = Dir(Chemin & "00000413*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
 
'5
    Fichier = Dir(Chemin & "00060935*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
 
'6
    Fichier = Dir(Chemin & "00060777*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
 
'7
    Fichier = Dir(Chemin & "00101142*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop
 
'8
    Fichier = Dir(Chemin & "00060106*.Digitsol")
    Do While Len(Fichier) > 0
        NbrFilesSeeAndUser = NbrFilesSeeAndUser + 1
        Fichier = Dir()
    Loop

Le second est un peu - c'est pas très grave vu l'ultra rapidité. Mais peut-on rationnaliser cela ?

[kiki29]

Salut regarde ici Liste des fichiers d'un dossier ou là Liste des fichiers d'un dossier : Office 32/64 Bits et adapte à ton contexte.



............. Balles tragiques à Charlie

[QuestVba]

Très complet. Je cherche à comprendre et je dis quoi. Merci.

[Marc-L]

Bonjour.

Mais peut-on rationnaliser cela ?

Créer une procédure avec le chemin et le nom du fichier dans une variable en paramètre …

_________________________________________________________________________________________________
Je suis Charlie

Jour d'ouverture des soldes : liquidation totale chez Charlie Hebdo …

Un scientifique lira des centaines de livres au cours de sa vie, mais sera toujours persuadé qu'il lui reste beaucoup à apprendre.
Un religieux n'en lira qu'un et sera persuadé d'avoir tout compris …