script de suppression de fichiers dans une arborescence
Bonjour tout le monde,
je me tourne vers vous parce que je n'ai pas d'autres choix. j'ai cherché longtemps avant de poster cette discussion sur ce forum. je vous expose mon problème.
pour commencer je suis totalement novice en vbs, mais alors vraiment novice de chez novice.
j'ai un répertoire FTP dans lequel des utilisateurs y déposent des fichiers et des répertoires qui eux même contiennent des répertoires et des fichiers...
je cherche un script qui pourrait parcourir toute l'arborescence et supprimer les fichiers qui seraient vieux de 30 jours.
j'ai mis en place un script qui permet de supprimer les fichiers dans un répertoire sans parcourir l'arborescence (ce que je ne veux pas)
voici mon script que j'ai pris par-ci par-là et modifié pour mes besoins.
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
32
33
34
35
36
37
38
| Dim strFolder
strFolder="C:\supprimer"
Dim logfile
logfile="logpurgeftp.log"
Dim fileSystem
Dim Repertoire
Dim datedepurge
datedepurge = date-0
Dim fichier
set filesystem = createobject("Scripting.FileSystemObject")
on error resume next
set Repertoire = fileSystem.GetFolder(strFolder)
if err.number<>0 then
wscript.echo "le repertoire ftp n'existe pas. Operation annulee."
set Repertoire = nothing : set fileSystem = nothing
wscript.quit(1)
end if
on error goto 0
set oTS = fileSystem.OpenTextFile(strFolder & "\" & logfile, 8, True)
for each fichier in Repertoire.files
if datediff("D",fichier.DateCreated,datedepurge)=0 then
Set asupprimer = fileSystem.GetFile(fichier)
wscript.echo asupprimer 'cette ligne fonctionne
'fileSystem.GetBaseName(fichier.path) cette ligne fonctionne aussi
asupprimer.delete ' cela ne fonctionne pas error : permission denied
oTS.writeline now & "," & fichier.path & "," & fichier.DateCreated & "," & fichier.DateLastModified
end if
next
oTS.close
set oTS = nothing : set Repertoire = nothing : set fileSystem = nothing |
Merci encore pour vos aides.
