Déplacement de fichiers suivant une date

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Déplacement de fichiers suivant une date

Eysinem

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 :

source = "C:\Users\amartin\Desktop\Backup"
destination = "J:\Downloads\Sauvegarde"
Set fs = CreateObject("Scripting.FileSystemObject" )
Set f = fs.GetFolder(source)
Set fFichiers = f.Files
For Each fTemp In fFichiers
fromDate= fTemp.DateLastModified
toDate= Date
If DateDiff("d", fromDate, toDate) > 2 Then
Set Ftxt = fs.GetFile(source & "\" & fTemp.Name) 'Fichier origine
Ftxt.Move (destination & "\" & fTemp.Name)
End If
Next

Publicité

pvclunacy

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Déplacement de fichiers suivant une date

Sujets relatifs
déplacement fichier sur lecteur réseau	Récupérer résultat semaine en fonction d'une date
bouton precedent et suivant	PHP écrire la date et l'heure sur une image
conversion date en utctime	[BATCH/VBS/...] Archiver tous les fichiers log d'un dossier
Extraire les noms et les verbes du Lexique dans deux fichiers.	copier des données de plusieurs fichiers pour en faire un seul
Merge de 2 fichiers text	Récupérer des fichiers via wget et SFTP
Plus de sujets relatifs à : Déplacement de fichiers suivant une date

Page générée en 0.053 secondes