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