Discussion :

[popofpopof]

bonjour,

je cherche a supprimer dans un dossier uniquement les fichiers "C:\Logs\*.log"

j'ai pris ce code

Code :

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

1
2
Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile("C:\Logs\*.log")

qui fonctionne par contre si j'ai un fichier en lecture le code ne fonctionne plus il plante. aimerai qu'il ne supprimer pas le fichier en lecture et passe au fichier suivant mais je n'arrive pas a le faire pouvez vous m'aide?

merci

[ProgElecT]

Salut

Une façon comme une autre, par traitement d'erreur

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
Maroutine()
 
 
Sub Maroutine()
        On Error Resume Next
        MsgBox 1/0
        'Set obj = CreateObject("Scripting.FileSystemObject")
        'obj.DeleteFile("C:\Logs\*.log")
        If Err Then
                MsgBox "une erreur c'est produite" & Vbnewline _
                & "Erreur N°" & CStr(Err.Number) & Vbnewline _
                & "Descrption:" & Vbnewline _
                & Err.Description
                Exit Sub
        End If
        'la suite .....
        'du programme
End Sub

[popofpopof]

merci pour la réponse mais je ne maitrise pas trop encore le vbs.

je ne veux pas savoir les erreurs car c'est un programme qui va être lancé chaque soir seul sens surveillance

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
Maroutine()
 
 
Sub Maroutine()
        On Error Resume Next
 
       'Set obj = CreateObject("Scripting.FileSystemObject")
       obj.DeleteFile("C:\Logs\*.log")
        If Err Then
                MsgBox "une erreur c'est produite" & Vbnewline _
                & "Erreur N°" & CStr(Err.Number) & Vbnewline _
                & "Descrption:" & Vbnewline _
                & Err.Description
                Exit Sub
        End If
        'la suite .....
        'du programme
End Sub

avec ton code il me dis erreur 70 permission refusée et arrête la suppression des fichiers

comme je peux continue la suppression?

[omen999]

bonjour,

la méthode DeleteFile quand elle est utilisée avec des caractères génériques s'arrête à la première erreur sans possibilité de reprise
donc, il faut changer d'approche par exemple en balayant la collection Files du répertoire
un exemple :

Code :

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

1
2
3
4
5
6
7
Set fso = CreateObject("Scripting.FileSystemObject")
Set cfl = fso.GetFolder("C:\Logs\").Files
On Error Resume Next
For each fl In cfl
  If Right(fl.Name,3) = "log" Then fso.DeleteFile fl.Path
Next
On Error GoTo 0

[popofpopof]

super merci cela fonctionne je vais reutilisé ce code dans d'autre solution merci encore a vous

[ProgElecT]

Salut

la méthode DeleteFile quand elle est utilisée avec des caractères génériques s'arrête à la première erreur sans possibilité de reprise

Donc une autre approche (vérifié, fonctionnelle)

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
   Dim ChemRep, MsG
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   ChemRep = "C:\MesProgs\En VBScript et HTA\Lecture attributs fichier\"
 
   TraitementFichiers ChemRep,"txt"
   Set fso = Nothing
   MsgBox MsG
 
Sub TraitementFichiers(ChemRepertoire,typ)
   Dim f, f1, fc, s
   Set f = fso.GetFolder(ChemRepertoire)
   Set fc = f.Files
   For Each f1 in fc
      If Lcase(Right(f1.Name,3)) = typ then
         Set f = fso.GetFile(ChemRepertoire & f1.name )
 
         ' cette condition If permet de vérifier si le fichier est en lecture seule
         If int(f.attributes/2) <> f.attributes/2 Then 'si impaire, forcement en lecture seule
			s = s & f1.name & ", fichier conservé car en lecture seule"
			Else
			s = s & f1.name & ", fichier supprimé"
			f.Delete
         End If
         s = s & vbnewline
      End If
   Next
   Set f = Nothing
   Set fc = Nothing
   MsG = s
End Sub

J'ai fait cela à partir de fichier txt, donc a modifier, de plus la mémorisation et l'affichage de l’opération de traitement de fichier(s) n'est là que pour la démonstration.

[omen999]

@popofpopof
en toute rigueur ma ligne 5 devrait plutôt s'écrire :

Code :

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

If LCase(Right(fl.Name,4)) = ".log" Then fso.DeleteFile fl.Path

@ProgElecT
salut Francis,

pour le test de parité, l'opérateur Mod est pas mal non plus mais je chipote

[l_autodidacte]

Salut à Tous;

popofpopof parle ici de fichier en lecture et n'a pas dit qu'il s'agit de fichier en lecture seule.
Quant à moi, je comprendrais qu'il s'agit de fichier en cours d'utilisation(ouvert par un processus quelconque).

Donc à popofpopof de nous éclairer.

Si c'est le cas proposé par ProgElecT et/ou omen999 (salut à vous deux)on est d'accord, sinon on devrait changer le code en conséquence.

[popofpopof]

bonjour

j'a iretenu cette solution, les fichier qui son ouvert par d'autre utilisateur son supprimer a J+1 cela ne me pose pas de problème donc pour mon besoin cette solution est parfaite

merci a vous tous encore

Code :

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

1
2
3
4
5
6
7
Set fso = CreateObject("Scripting.FileSystemObject")
Set cfl = fso.GetFolder("C:\Logs\").Files
On Error Resume Next
For each fl In cfl
  If LCase(Right(fl.Name,4)) = ".log" Then fso.DeleteFile fl.Path
Next
On Error GoTo 0