supprimer un ensemble de fichiers

bonjour,

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

j'ai pris ce code

Code:

---

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

Salut

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

Code:

---

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

---

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:

---

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?

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:

---

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

---

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

Salut

Citation:

---

Envoyé par omen999

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:

---

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.

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

Code:

---

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

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.

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:

---

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

---