Déplacement de fichiers suivant une date

Déplacement de fichiers suivant une date - VB/VBA/VBS - Programmation

Marsh Posté le 01-03-2013 à 10:56:08    

Bonjour,  
 
Dans le script ci-dessous j'essaie de déplacer des fichiers si leur date de modification est ancienne.
Le script fonctionne, mais il ne prend pas en compte les sous-dossiers.
De plus je souhaiterais délacer qu'un certain type de fichiers.
 
Pourriez-vous m'aider ?
 

Code :
  1. source = "C:\Users\amartin\Desktop\Backup"
  2. destination = "J:\Downloads\Sauvegarde"
  4. Set fs = CreateObject("Scripting.FileSystemObject" )
  5. Set f = fs.GetFolder(source)
  6. Set fFichiers = f.Files
  8. For Each fTemp In fFichiers
  9. fromDate= fTemp.DateLastModified
  10. toDate= Date
  12. If DateDiff("d", fromDate, toDate) > 2 Then
  13. Set Ftxt = fs.GetFile(source & "\" & fTemp.Name) 'Fichier origine
  14. Ftxt.Move (destination & "\" & fTemp.Name)
  15. End If
  16. Next

Reply

Marsh Posté le 01-03-2013 à 10:56:08   

Reply

Marsh Posté le 01-03-2013 à 19:43:20    

Bonjour,
 
Regarde du côté de la navigation récursive de répertoire en vbs, ça devrait répondre à ton problèmes de sous dossiers.
 
Pour le type de fichier, si tu te contente de l'extension un test sur fs.GetExtensionName(fTemp.Name) suffira

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed