Suppression de fichiers dans un répertoire
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:
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.
