VBScript для обнаружения сегодняшних измененных файлов в папке (включая подпапки внутри нее)

Question

Мне нужно получить все измененные файлы в папке, включая подпапки внутри нее, и скопировать их в другую папку. Как это можно сделать с помощью VBScript или любым другим способом для достижения этой цели?

Заранее спасибо,
Bibhu

Answer 1

попробуйте это (копировать файлы, измененные менее 24 часов назад)

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