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