Script de nettoyage répertoire FTP

Question

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:	emp 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:	emp

Merci de votre aide

Bien à vous

Nicolas

Configuration: Latitude D830, 4Go RAM, HDD 80Gb

nico2010 · Answer

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

Script de nettoyage répertoire FTP

1 réponse

Votre réponse

Discussions similaires

Newsletters