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