Page 1 sur 1

VBS script deplacer fichier

Publié : sam. 14 oct. 2017, 17:17
par guigui69
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

Re: VBS script deplacer fichier

Publié : sam. 14 oct. 2017, 19:53
par Timil
Euh tu sais que Robocopy a un /MAXAGE et /MINAGE? :roll:

Re: VBS script deplacer fichier

Publié : sam. 30 déc. 2017, 13:45
par guigui69
D'accord je connaissais pas.

il va recreer l'arborescence des dossiers ?

guigui69

Re: VBS script deplacer fichier

Publié : sam. 30 déc. 2017, 19:31
par Timil
Tout ce que tu lui demandes, avec ou sans les dossiers, avec ou sans les dossiers vides, avec ou sans les droits, etc...