+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1
    Membre à l'essai
    Inscrit en
    mai 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : mai 2009
    Messages : 54
    Points : 21
    Points
    21

    Par défaut Copie de fichier par rapport à la date de modification

    Bonjour,

    j'aimerais obtenir de l'aide quant à la mise en place d'un script qui me ferait la copie de fichier par rapport à sa date de modification. En effet, le script doit copier les fichier ayant une extension .bak d'un répertoire vers un autre mais ne prenant que les fichiers ayant la date de modification la plus récente.

    j'ai essayé avec xcopy mais n'est pas trouvé les commandes pour la date de modification la plus récente.

    merci d'avance pour votre aide

  2. #2
    Membre Expert
    Homme Profil pro
    Développeur Web
    Inscrit en
    mai 2009
    Messages
    700
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : mai 2009
    Messages : 700
    Points : 1 024
    Points
    1 024

    Par défaut

    tu pourra récupérer la date de modification d'un fichier par
    Code :
    $filelastmodified = filemtime("chemin de ton fichier");
    et avec
    Code :
    (time()-$filelastmodified)
    tu aura la petite valeur est la plus récente

  3. #3
    Membre à l'essai
    Inscrit en
    mai 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : mai 2009
    Messages : 54
    Points : 21
    Points
    21

    Par défaut

    Merci pour ces indications mais je ne sais pas trop comment ajouter cela à mon script.

    voici comment j'avais commencé mon script mais cela ne semble pas fonctionner comme espéré:


    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    On Error Resume Next
     
    MyDate = DateAdd("d", 1, date)
    source = "RepertoireSource\*.txt"
    destination = "RepertoireDestination\ /D:"
     
    StrCommand = "xcopy " & source & destination & MyDate
     
     
    Set objShell = CreateObject("WScript.Shell")
     
     
    ' wscript.echo StrCommand
     
    objWshShell.Run strCommand, 1, True
    Pourrais tu m'aider à implémenter la variable "Filelastmodified" dans mon script

  4. #4
    Membre à l'essai
    Inscrit en
    mai 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : mai 2009
    Messages : 54
    Points : 21
    Points
    21

    Par défaut

    je viens de trouver une autre solution qui semble fonctionner, mon seul pb ici est de ne prendre que les fichier ayant une extension .txt


    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Dim sourcePath,targetPath,objFile,totalFiles,fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    sourcePath = "Source"
    If fso.GetFolder(sourcePath).Files.Count <= 1 Then
    Wscript.Quit
    End If
    Set sourceFolder = fso.GetFolder(sourcePath)
    targetPath = "Destination"
    Dim oldestFile, oldestDate
    For Each objFile In sourceFolder.Files
    If oldestFile = "" Then
    Set oldestFile = objFile
    Else
    If objFile.DateLastModified > oldestFile.DateLastModified Then
    Set oldestFile = objFile
    End If
    End If
    Next
    oldestFile.Copy targetPath & "\" & oldestFile.Name
    Wscript.Quit

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •