用於檢測文件夾中當前已修改文件（包括其中的子文件夾）的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