Discussion :

[linuxman]

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.

[bodbod]

Bonjour,

Pour cela, tu as besoin d'une fonction récursive, c'est a dire qui s'appelle elle même en descendant dans l'arborescence.

En résumé :

Code :

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

1
2
3
4
5
6
7
Function MaFonction( Chemin )
    Parcours Fichier
        Supprimer si > 30 jours
 
    Parcours Dossiers
        MaFonction Chemin & Dossier
End Function

[SfJ5Rpw8]

(..)
j'ai un répertoire FTP
(...)

Code :

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

strFolder="C:\supprimer"

(...)

en quoi ton répertoire est un répertoire FTP ?

[linuxman]

pour le moment je teste en local sur un répertoire en local(c:\supprimer) sur mon disque, je ne peux pas me permettre de tester sur la production. par la suite je compte le mettre sur le serveur ftp.
Merci bodbod, je savais déjà qu'il me faudrait un truc de ce genre, le problème est que je ne sais pas développer pas en vbs. j'ai commencé à m'y mettre récemment, j'y touche un peu voilà c'est pourquoi je sollicite l'aide de tout le monde

[SfJ5Rpw8]

pour le moment je teste en local sur un répertoire en local(c:\supprimer) sur mon disque, je ne peux pas me permettre de tester sur la production. par la suite je compte le mettre sur le serveur ftp...

et pour ton serveur ou le script seras exécuté il s'agira bien fichiers locaux ...
et pas des fichiers accessibles par ftp ?

[linuxman]

oui c'est cela, le script sera exécuté sur un serveur Windows et s'appliquera à un répertoire FTP qui se trouve en local sur le serveur. donc j'imagine que je dois me baser sur les dates de création de fichiers

[SfJ5Rpw8]

Donc pour ton serveur il s'agit d'un répertoire local et pas un répertoire auquel il accède par ftp...

Inspire toi du code suivant :

utilise une fonction récursive du genre :

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
 
 
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "d:\users"
LectRep stRep 
 
'
' Fonction récursive de parcours de répertoire
'
Sub LectRep (stR )
 For each oFld in  oFSO.GetFolder(stR).SubFolders
   Wscript.Echo "--------------- " & oFld.PAth & "-----------------"
   ListeFichier (oFld.PATH)   
   LectRep oFld.PATH
 Next
end sub
'
' Listing des fichiers du répertoire
'
Sub ListeFichier (stR)
 For each oFl in  oFSO.GetFolder(stR).Files
   Wscript.Echo oFl.Name	
 Next
End sub

modifie la fonction ListeFichier pour qu'elle effectue l'action souhaitée sur tes fichiers..

[linuxman]

Merci bbil, je vais essayer