1. #1
    Membre du Club
    Profil pro
    Inscrit en
    octobre 2006
    Messages
    674
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2006
    Messages : 674
    Points : 47
    Points
    47

    Par défaut Copier un Fichier en fonction d'une date repertoire identique

    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

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    octobre 2006
    Messages
    674
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2006
    Messages : 674
    Points : 47
    Points
    47

    Par défaut

    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

Discussions similaires

  1. Copier fichier en fonction de la date
    Par jejeapollo dans le forum Scripts/Batch
    Réponses: 5
    Dernier message: 01/07/2009, 17h15
  2. Supprimer des fichiers en fonction d'une date
    Par Sh4dow49 dans le forum Administration système
    Réponses: 1
    Dernier message: 02/06/2009, 22h36
  3. Réponses: 7
    Dernier message: 17/11/2007, 17h05
  4. suppression fichier en fonction d'une date
    Par kalyparker dans le forum Scripts/Batch
    Réponses: 3
    Dernier message: 02/07/2007, 14h19
  5. Supprimer un fichier par rapport a une date
    Par NewB dans le forum Linux
    Réponses: 2
    Dernier message: 25/06/2003, 13h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo