Код:
Option Explicit
Dim strSourceFolder
Dim strDestFolder
Dim strFileExt
Dim objFSO
strSourceFolder = "C:\Склады"
strDestFolder = "C:\1\Inward\22"
strFileExt = "x"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strSourceFolder) Then
If objFSO.FolderExists(strDestFolder) Then
ScanSubFolders objFSO.GetFolder(strSourceFolder), strFileExt
Else
WScript.Echo "Can't find destination folder [" & strDestFolder & "]."
WScript.Quit 2
End If
Else
WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
WScript.Quit 1
End If
Set objFSO = Nothing
WScript.Quit 0
'=============================================================================
'=============================================================================
Sub ScanSubFolders(objFolder, strFileExt)
Dim objFile
Dim objSubFolder
WScript.StdOut.WriteLine "[" & objFolder.Path & "]"
For Each objFile In objFolder.Files
If StrComp(objFSO.GetExtensionName(objFile.Name), strFileExt, vbTextCompare) = 0 Then
If DateDiff("d", objFile.DateCreated, Now()) = 0 Then
WScript.StdOut.Write vbTab & objFile.Name
If Not objFSO.FileExists(objFSO.BuildPath(strDestFolder, objFile.Name)) Then
objFile.Copy strDestFolder & "\", False
WScript.StdOut.WriteLine " : copied into destination folder [" & strDestFolder & "]."
Else
WScript.StdOut.WriteLine " : already exists in destination folder [" & strDestFolder & "]."
End If
End If
End If
Next
For Each objSubFolder In objFolder.SubFolders
ScanSubFolders objSubFolder, strFileExt
Next
End Sub
'=============================================================================
