Discussion :

[minimoack]

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

[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é.

[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.

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

Du coup j'ai essayé :

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

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

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...

[gnain]

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.

[minimoack]

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

Code :

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

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 !