Script de nettoyage répertoire FTP
Fermé
nico2010
Messages postés
2
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
25 mars 2010
-
25 mars 2010 à 09:30
nico2010 Messages postés 2 Date d'inscription mercredi 24 mars 2010 Statut Membre Dernière intervention 25 mars 2010 - 25 mars 2010 à 09:50
nico2010 Messages postés 2 Date d'inscription mercredi 24 mars 2010 Statut Membre Dernière intervention 25 mars 2010 - 25 mars 2010 à 09:50
A voir également:
- Script de nettoyage répertoire FTP
- Nettoyage mac - Guide
- Script vidéo youtube - Guide
- Nettoyage de disque - Guide
- Nettoyage pc lent - Guide
- Nettoyage pc gratuit - Guide
1 réponse
nico2010
Messages postés
2
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
25 mars 2010
25 mars 2010 à 09:50
25 mars 2010 à 09:50
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
'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
