Forum du laboratoire des technologies Microsoft

Forum du laboratoire des technologies Microsoft

Accéder au contenu

Recherche avancée
  • Raccourcis
    • Sujets sans réponse
    • Sujets actifs
    • Rechercher
    • L’équipe
  • FAQ
  • Connexion
  • Inscription
  • Accueil du forum Aide Technique Programmation
  • Rechercher

VBS script deplacer fichier

Modérateurs : Modérateurs, Modérateurs_Divers

Règles du forum
Répondre
  • Aperçu avant impression
Recherche avancée
4 messages • Page 1 sur 1
guigui69
Grand Master
Grand Master
Messages : 1638
Inscription : ven. 26 nov. 2004, 15:47
VBS script deplacer fichier
  • Citer

Message par guigui69 » sam. 14 oct. 2017, 17:17

Bonjour,

je suis sur un script pour deplacer des fichiers en fonction d'une date:

Code : Tout sélectionner

 
Function CreateFolderRecursive(FullPath)
  Dim arr, dir, path
  Dim oFs
 
  Set oFs = WScript.CreateObject("Scripting.FileSystemObject")
  arr = split(FullPath, "\")
  path = ""
  For Each dir In arr
    If path <> "" Then path = path & "\"
    path = path & dir
    If oFs.FolderExists(path) = False Then oFs.CreateFolder(path)
  Next
End Function
 
Sub ListDirectory(objFolder)
  For Each objFile In  objFolder.Files
   ' WScript.Echo "Fichier : " & objFile.Name
  if Cdate(objFile.DateLastAccessed)  <= Cdate(datearchive) then
     NewFichier.WriteLine("Fichier;" & objFile.Name & ";" & objFso.GetExtensionName(objFile.Path) & ";" & objFile.Type & ";"  & objFile.DateLastAccessed & ";" & objFile.DateLastModified & ";" & objFile.Path & ";" & objFile.ParentFolder & ";" & objFile.Drive &";" & MonRepdestination & Replace(objFile.ParentFolder, "C:\", "") )
 
  ' CreateFolderRecursive (MonRepdestination & Replace(objFile.ParentFolder, "C:\", "") )
  ' objFSO.MoveFile objFile.Path, MonRepdestination & Replace(objFile.ParentFolder, "C:\", "") & "\"
 
            End If
  Next
  For Each objSubFolder In objFolder.SubFolders
    'WScript.Echo "Dossier : " & objSubFolder.Name
	NewFichier.WriteLine("Dossier;" & objSubFolder.Name)
    ListDirectory(objSubFolder )
  Next
End Sub
FichierTXT = "c:\toto.csv"
MonRepertoire = "C:\Users\xxxx\Desktop\A trier"
MonRepdestination = "D:\Archive\"
' Affectation de la date limite :
datearchive =  "01/11/2017 00:00:00"
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objMyFolder = objFso.GetFolder(MonRepertoire)
Set NewFichier = objFso.CreateTextFile(FichierTXT,TRUE)
ListDirectory objMyFolder
 
 
Set objFso = Nothing
j'ai un doute sur cette variable DateLastAccessed est-ce que c'est l'attribut qui indique la dernier fois que le fichier a été utilisé/ouvert (sans modification). mon but (à terme) est deplacer les fichiers qui on pas été ouvert/utilisé depuis la date xx/xx/xxxx

Est-ce que c'est la bonne valeur?

merci d'avance pour vos conseils

guigui69
Haut

Avatar de l’utilisateur
Timil
Forum Master
Forum Master
Messages : 17441
Inscription : mar. 18 mars 2003, 11:44
Localisation : Luxembourg
Re: VBS script deplacer fichier
  • Citer

Message par Timil » sam. 14 oct. 2017, 19:53

Euh tu sais que Robocopy a un /MAXAGE et /MINAGE? :roll:
Haut

guigui69
Grand Master
Grand Master
Messages : 1638
Inscription : ven. 26 nov. 2004, 15:47
Re: VBS script deplacer fichier
  • Citer

Message par guigui69 » sam. 30 déc. 2017, 12:45

D'accord je connaissais pas.

il va recreer l'arborescence des dossiers ?

guigui69
Haut

Avatar de l’utilisateur
Timil
Forum Master
Forum Master
Messages : 17441
Inscription : mar. 18 mars 2003, 11:44
Localisation : Luxembourg
Re: VBS script deplacer fichier
  • Citer

Message par Timil » sam. 30 déc. 2017, 18:31

Tout ce que tu lui demandes, avec ou sans les dossiers, avec ou sans les dossiers vides, avec ou sans les droits, etc...
Haut


Répondre
  • Aperçu avant impression

4 messages • Page 1 sur 1

Revenir à « Programmation »

Aller
  • Systèmes Microsoft
  • ↳   Serveurs Windows
  • ↳   Windows 2016
  • ↳   Windows 2012 Server/2012 R2
  • ↳   Windows 2008 R2 Server
  • ↳   Windows 2008 Server
  • ↳   Windows 2003 Server (R2)
  • ↳   SBS 2011
  • ↳   SBS/EBS 2008
  • ↳   SBS 2003
  • ↳   Clients Windows
  • ↳   Windows 10
  • ↳   Windows 8/8.1
  • ↳   Windows 7
  • ↳   Windows Vista
  • ↳   Active Directory
  • ↳   GPO/GPP
  • ↳   Gestion des Utilisateurs (et autres objets AD)
  • ↳   DNS
  • ↳   Controleur de Domaine Et Roles AD
  • ↳   Schema et Réplication
  • ↳   Autres Problèmes AD
  • ↳   Terminal Services
  • ↳   Déploiement des systèmes d'exploitations Windows
  • ↳   Systèmes Windows Non Supportés
  • ↳   Windows XP
  • ↳   Windows 2000
  • ↳   Autres (Windows NT,Me,98,95,3/2/1, Ms DOS)
  • Applicatifs Microsoft
  • ↳   Microsoft Azure/Office 365/Intune
  • ↳   Exchange Server
  • ↳   Exchange 2016
  • ↳   Exchange 2013
  • ↳   Exchange 2010
  • ↳   Exchange 2007
  • ↳   Exchange 2003/2000/5.5
  • ↳   Communications Unifiées
  • ↳   SQL Server
  • ↳   Serveur Intranet/Internet
  • ↳   Internet Information serveur (IIS)
  • ↳   Sharepoint
  • ↳   System Center
  • ↳   Microsoft Forefront
  • ↳   Forefront TMG/ISA Server
  • ↳   Forefront UAG/IAG Server
  • ↳   Forefront Endpoint Protection 2010/client security
  • ↳   Forefront for Exchange/Sharepoint
  • ↳   Sécurité
  • ↳   Suite Microsoft Office
  • ↳   Word
  • ↳   Excel
  • ↳   Outlook
  • ↳   Autres Problèmes Suite Office
  • ↳   Office Info
  • ↳   Edge/Internet Explorer/Windows Mail/Onedrive
  • ↳   Patch/correctifs Ms et Windows Update Service (WSUS)
  • ↳   Serveurs Microsoft
  • Aide Technique
  • ↳   Intéropérabilité avec les Systèmes Alternatifs (Linux, Novell, Mac OS, etc.)
  • ↳   Programmation
  • ↳   Espace Certifications et Formations
  • ↳   Dépannage et Remarques divers
  • ↳   Réseaux et télécommunications
  • ↳   Virtualisation
  • ↳   Microsoft Virtualisation
  • ↳   VMware
  • ↳   Citrix/XEN
  • Divers
  • ↳   Emploi
  • ↳   Achat/Vente informatique
  • ↳   Pause Café
  • ↳   Site Du Forum
  • ↳   Demandes d'info/Modification du forum
  • Accueil du forum
  • Fuseau horaire sur UTC+02:00
  • Supprimer tous les cookies du forum
  • L’équipe
  • Nous contacter

Traduction française officielle © Miles Cellar
 

 

cron