Suppression fichier avec macro VB

Version imprimable

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:

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 ? :weird:

Code:

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 ;)

16/03/2015, 23h53
gnain

Bonjour,
Normalement les fichiers thumbs.db sont créer quand un fichier est ouvert ou un dossier ouvert.
Si le dossier est ouvert par quelqu'un on ne peut pas supprimer ces fichiers.
Quand le dossier n'est plus ouvert par aucun utilisateur alors les fichiers thumbs.db se supprime automatiquement.

Dans certaine condition, que je ne peut expliqué, les fichier thumbs.db reste coller, ne se supprime pas automatiquement.
Dans ce cas unique on peut les supprimer à la main ou par programmation.

Dans votre code, il ne les trouvent pas, et c'est normal, car ces fichiers sont caché.
Il faut lister les fichier caché de cette manière
https://support.microsoft.com/fr-ca/...?wa=wsignin1.0

en espérant de vous avoir aidé.

En fait votre fonction liste les fichiers cachés mais dans un msgbox, elle ne les affiche pas dans le dossier il me semble.

J'ai trouvé ce topic résolu : http://www.developpez.net/forums/d37...ach-d-fichier/

Du coup j'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim chemin As String Dim chemDir As String chemin = Replace(PublicationFolder, "\", "/") chemDir = Dir(chemin, vbSystem And vbHidden) chemin = Replace(PublicationFolder, "/", "\") chemin = chemin & "\" & PatternList If ExisteFichier(chemin) Then ' ListeFichiers chemin, vbSystem + vbHidden ' SetAttr chemin, vbNormal Kill (chemin) Else MsgBox vbCrLf & "Aucun fichier correspondant aux patterns : " & PatternList & " n 'a été trouvé" & vbCrLf End If
Mais je ne dois pas utiliser Dir correctement... ça ne fonctionne pas non plus...
J'ai utilisé les replace parce que sans, chemDir était vide...
Code:

1 2 3 4 5 6 7 8 chemin = Replace(PublicationFolder, "\", "/") chemDir = Dir(chemin, vbSystem And vbHidden) chemin = chemin & "/" & PatternList MsgBox vbCrLf & "chemin" & vbCrLf & chemin MsgBox vbCrLf & "chemDir" & vbCrLf & chemDir
la message box de chemDir montre bien que la variable est vide... :weird:

17/03/2015, 11h43
gnain

Citation:

Envoyé par minimoack

En fait votre fonction liste les fichiers cachés mais dans un msgbox, elle ne les affiche pas dans le dossier il me semble.

Bonjour,
le lien que je vous ai mis fonctionne très bien pour les fichier caché.
Il suffit de l'adapter à votre code.

C'est bon, merci pour votre aide mais j'ai réussi sans avoir à ajouter des fonctions :

Code:

1
2
3
4
5
6
7
8
9
 
Dim chemDir As String
chemDir = Dir(PublicationFolder & "\" & PatternList, vbSystem + vbHidden)
If chemDir <> "" Then
        SetAttr PublicationFolder & "\" & chemDir, vbNormal
        Kill (PublicationFolder & "\" & chemDir)
Else
        MsgBox vbCrLf & "Aucun fichier correspondant aux patterns : " & PatternList & " n 'a été trouvé" & vbCrLf
End If

Merci pour votre attention !