Discussion :

[guigui69]

Bonsoir à tous,

je voudrais savoir si il est possible de copier (ou déplacer) un fichier en fonction d'une date (dernière ouverture du fichier) vers un autre répertoire avec une structure de fichier identique.


Dossier Origine: D:\Data\ (composer de dossier/sous dossier et fichier)


Dossier Archive : Data-DD-mm-aaaa\


Le but c'est en fonction de la date il deplace le fichier mais recreer l'arborescence à l'identique.


Est-ce réalisable en vbs script ?


merci d'avance pour vos conseils

guigui69

[guigui69]

Bonjour,

J'avance sur mon script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
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

Par contre j'ai un doute sur ceci "DateLastAccessed" est-ce que c'est la date de la derniere fois quel le fichier a été ouvert? (sans modification)

guigui69