Bonjour,

J'ai un script qui permet de vider le repertoire dans c:\temp
J'ai ensuite voulu vider le repertoire présent dans local settings\temp mais j'ai un accès refusé, du coup la suppression des fichiers ne continue pas.

J'ai tenté de faire on error resum next mais ca stop le script.
Est ce qu'il y a une solution pour faire :
Si erreur alors tu passes au fichier suivant.

voici le code que j'ai actuellement :

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
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Fichier_TMP_C = "C:\Temp\"
Fichier_TMP_Profil = WshShell.ExpandEnvironmentStrings("%TMP%")
 
Set FSO = WScript.CreateObject("Scripting.FileSystemObject") 
Set TMP1=FSO.GetFolder(Fichier_TMP_C)
Set TMP2=FSO.GetFolder(Fichier_TMP_Profil)
 
 
On Error Resume Next
function Del(rep) 
Set AllFiles = rep.Files 
For Each AFile In AllFiles 
AFile.Delete
 
next 
for each subFolder in rep.SubFolders 
Del (subFolder)
subFolder.delete
next 
 
end function 
 
Del(TMP1)
Del(TMP2)
Merci d'avance pour votre aide.