Discussion :

[patricktoulon]

bonjour a tous


je cherche le moyen d'eviter les fichier protégés(vista ou seven) lorsque je boucle sur un disque pour chercher un fichier

voici la macro qui me cherche dans un dossier ca va mais des que je change le chemin avec la letre du disque je tombe a coup sur sur les fichiers cachés

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
 
'Lister les fichiers d'un répertoire et ses sous-répertoires - une méthode + rapide ?
 
 
 
 
Option Explicit
Public nb As Integer
 
Sub Appel()
Dim chemin As String
    nb = 0
    chemin = "F:\PATRICK"     ' ici si je met que le disque(chemin = "F:") 
    Lister chemin
End Sub
 
 
 
 
Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Lister = fs.GetFolder(chemin).Files.Count
    Nomfich = Dir(chemin & "\*.*")
    Do While Nomfich <> "" 'si je n'est que le disque comme chemin je vais tombé sur les fichiers protégés
        nb = nb + 1
        If Nomfich = "toto.xls" Then Workbooks.Open chemin & "\" & Nomfich
 
        'Cells(nb, 1) = chemin & "\" & Nomfich 'liste dans la feuille de calculs active
        Nomfich = Dir()
    Loop
    'Pour chaque sous-répertoire, appel récursif de Lister
    For Each Rep In fs.GetFolder(chemin).SubFolders
        NewRep = Lister(Rep.Path)
    Next Rep
End Function

quelqu'un aurait une solution ou un lien


merci d'avance


au plaisir

[babaothe]

salut

utilise les arguments attributs de Dir, genre (en utilisant bien sûr les attrributs qui t'intéressent, selon le cas, au besoin avec Not) :
Nomfich = Dir(chemin & "\*.*", vbnormal or vbhidden)

Mais : d'un côté tu parles de fichiers "protégés" et, de l'autrre, de fichiers "cachés"

[patricktoulon]

bonjour babahote

oui je parle des fichiers cachés et protégé par le system (vista e t seven)

car par exemple les recycles.bin contenant la poubelle est un fichier caché et protégé donc ca bug


je vais etudier ta solution mais vbhiden a la limite si je les zap dans la boucles ca peut m'aider mais avec vista et seven il y a des dossiers qui ne sont pas caché mais protégés


merci a toi je reviens si je trouve pas


au plaisir

[babaothe]

ok
Mais regarde à nouveau ton code : il est assez surprenant d'utiliser à la fois FSO et DIR

[patricktoulon]

excuse moi je metrise encore tres mal la gestion des fichiers et dossiers par macro


donc si c'est un peu bric a brac c'est que je sort un peu de mon truc a moi qui est plutot de jouer avec les api

j'avais bricolé ce truc pour un forumeur qui lui passait dabors par un bat je trouvais que tout faire par macro etait plus propre cela dis moi je demare du disque et non pas un dossier dans le disque tu a du certainement tombé sur cette convercation

cela dit si tu a une solution ou une explication en francais je suis preneur


au plaisir

j'avais oublié c'est ici que ca bug quand je suis que sur le disque

Code :

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

1
2
 
Lister = fs.GetFolder(chemin).Files.Count'chemin prend la valeur de recycle .bin forcement puisque c'est les premiers fichiers a la racine du disque

[babaothe]

cela dit si tu a une solution ou une explication en francais je suis preneur

oui : Dir admet la récursivité. Utiliser cette récursivité.
Le code sera un tout petit peu plus long, mais : plus propre (plus "VBéiste"), moins lourd, moins dépendant (de VBS !) et surtout : d'exécution plus rapide.