Discussion :

[ponpon17430]

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.

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Resume Next
function Del(rep) 
Set AllFiles = rep.Files 
For Each AFile In AllFiles 
On Error Resume Next
AFile.Delete
 If err then on Error Clear
next 
for each subFolder in rep.SubFolders 
Del (subFolder)
On Error Resume Next
subFolder.delete
 If err then on Error Clear
next

Mais ... il est peut être possible de donner les droits adéquat, pour ma part je ne sais pas faire.