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 ?
ça j'ai essayé, et ça ne marche pas. Il ne trouve pas les fichiers cachés...
Code : Sélectionner tout - Visualiser dans une fenêtre à part SetAttr chemin, vbNormal
Merci pour vos réponses
Partager