Script de nettoyage répertoire FTP
nico2010
Messages postés
2
Statut
Membre
-
nico2010 Messages postés 2 Statut Membre -
nico2010 Messages postés 2 Statut Membre -
Bonjour,
Je me permet de poster sur ce forum car j'ai un problème.
Je désire réaliser un script qui me permetrai de faire ceci:
Mettons un folder c:\temp dans ce répertoire, 3 dossiers (A,B et C) ainsi que 2 fichiers
Dans les répertoires A et B se trouvent 3 répertoires (D,E et F) et dans C 2 fichiers.
Une fois le script exécuté j'aimerai qu'il me reste les répertoires A,B et C vident dans C:\temp
Merci de votre aide
Bien à vous
Nicolas
Je me permet de poster sur ce forum car j'ai un problème.
Je désire réaliser un script qui me permetrai de faire ceci:
Mettons un folder c:\temp dans ce répertoire, 3 dossiers (A,B et C) ainsi que 2 fichiers
Dans les répertoires A et B se trouvent 3 répertoires (D,E et F) et dans C 2 fichiers.
Une fois le script exécuté j'aimerai qu'il me reste les répertoires A,B et C vident dans C:\temp
Merci de votre aide
Bien à vous
Nicolas
1 réponse
-
Voici le code que j'ai fait, le problème est que mon répertoire parent s'efface
'On Error Resume Next
sPath = "c:\dell\"
sOlderThanDays = 1
' Compute old date
dOldDate = dateadd("d", 0 - sOlderThanDays, Now())
' Get base folder
Set oFSO = CreateObject("Scripting.FileSystemObject" )
Sub CleanFolder(sCurrentPath)
' select current folder
Set oFolder = oFSO.GetFolder(sCurrentPath)
' Get subfolders
Set oSubFolders = oFolder.SubFolders
' Do a recursive call if it contains subfolders
For Each oCurrentFolder in oSubFolders
CleanFolder oCurrentFolder.Path
Next
' Get files in current folder
Set oFiles = oFolder.Files
' Delete old Files
For Each oCurrentFile in oFiles
If oCurrentFile.DateCreated < dOldDate Then
oCurrentFile.Delete True
End If
Next
Set oFiles = oFolder.Files
If oFiles.Count = 0 AND oFolder.Path & "\" <> sPath Then
oFolder.Delete True
End If
End Sub
' Call clean function
CleanFolder sPath
