Scripting VBScript来检测今天的情况'；s文件夹中的修改文件（包括其中的子文件夹）

我需要得到一个文件夹内的所有修改文件，包括其中的子文件夹，并将它们复制到另一个文件夹。如何使用VBScript或任何其他方法来实现这一点

提前感谢，
Bibhu

试试这个（复制24小时前修改过的文件）

Set objFS=CreateObject（“Scripting.FileSystemObject”）
''#要扫描的目录
strFolder=“c:\test”
设置objFolder=objFS.GetFolder（strFolder）
转到（objFolder）
副Go（objDIR）
如果objDIR“\System Volume Information”，则
对于objDIR.SubFolders中的每个eFolder
付账
下一个
对于objDIR.Files中的每个strFiles
strFileName=strFiles.Name
strFilePath=strFiles.Path
如果DateDiff（“h”，strFile.DateLastModified，Now）<24，则
objFS.CopyFile strFolder&“\”&strFileName，“c:\tmp”
如果结束
下一个
如果结束
端接头

试试这个（复制24小时前修改过的文件）

Set objFS=CreateObject（“Scripting.FileSystemObject”）
''#要扫描的目录
strFolder=“c:\test”
设置objFolder=objFS.GetFolder（strFolder）
转到（objFolder）
副Go（objDIR）
如果objDIR“\System Volume Information”，则
对于objDIR.SubFolders中的每个eFolder
付账
下一个
对于objDIR.Files中的每个strFiles
strFileName=strFiles.Name
strFilePath=strFiles.Path
如果DateDiff（“h”，strFile.DateLastModified，Now）<24，则
objFS.CopyFile strFolder&“\”&strFileName，“c:\tmp”
如果结束
下一个
如果结束
端接头

Close，但是如果来自不同源目录的多个文件具有相同的名称，会发生什么情况？不管怎样，丢失文件夹信息可以吗？OP必须做好准备，在他认为必要的情况下在目标位置创建文件夹。这很有帮助，我需要调整一下，但效果很好…anthony，我知道关于同名问题，但就我的文件夹结构而言，它不会有相同的名称…因此感谢大家的帮助：）关闭，但是，如果来自不同源目录的多个文件具有相同的名称，会发生什么情况？不管怎样，丢失文件夹信息可以吗？OP必须做好准备，如果他认为有必要的话，在目标位置创建文件夹。这很有帮助，我需要调整一下，但效果很好…anthony，我知道关于相同名称的问题，但就我的文件夹结构而言，它不会有相同的名称…所以感谢大家的帮助：）

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