VBScript pour détecter les fichiers modifiés d'aujourd'hui dans un dossier (y compris les sous-dossiers à l'intérieur)

Question

Je dois récupérer tous les fichiers modifiés dans un dossier incluant les sous-dossiers et les copier dans un autre dossier. Comment peut-il être fait en utilisant VBScript ou tout autre moyen pour y parvenir?

Merci à l'avance,
Bibhu

Answer 1

essayez ceci (copier des fichiers modifiés il y a moins de 24 heures)

Set objFS = CreateObject("Scripting.FileSystemObject") 
''# Directory to scan 
strFolder = "c:\test" 
Set objFolder = objFS.GetFolder(strFolder) 
Go(objFolder) 

Sub Go(objDIR) 
    If objDIR <> "\System Volume Information" Then 
    For Each eFolder in objDIR.SubFolders 
     Go eFolder 
    Next 
    For Each strFiles In objDIR.Files 
     strFileName = strFiles.Name 
     strFilePath = strFiles.Path   
      If DateDiff("h",strFile.DateLastModified,Now) < 24 Then 
      objFS.CopyFile strFolder&"\"&strFileName,"c:\tmp" 
     End If 

    Next  
    End If 
End Sub