Bonjour à tous !

J'ai fait ce petit code qui me permettrait de supprimer des fichiers en entrant en paramètre le chemin du dossier et l'extension genre *.doc :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function DetruireLesFichiers(ByVal PublicationFolder As String, ByVal PatternList As String) As Long
    Dim chemin As String
    chemin = PublicationFolder & "\" & PatternList
    If ExisteFichier(chemin) Then
    '    SetAttr chemin, vbNormal
        Kill (chemin)
    Else
      MsgBox vbCrLf & "Aucun fichier correspondant aux patterns : " & PatternList & " n 'a été trouvé" & vbCrLf
      MsgBox vbCrLf & chemin
    End If
    Application.StatusBar = False
    DetruireLesFichiersDeLaPublicationDeConfigurationCorrespondantAuxPattens = 0
End Function

Le problème c'est que j'aimerais supprimer entre autre les fichiers Thumbs.db, mais il passe systématiquement dans le else... j'ai fait le test avec *.htm et ça fonctionne... comment faire pour les thumbs.db ?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
 SetAttr chemin, vbNormal
ça j'ai essayé, et ça ne marche pas. Il ne trouve pas les fichiers cachés...

Merci pour vos réponses