[Iska]

Пробуйте:

читать дальше »

Код:

Option Explicit

Dim strRootFolder
Dim strFileName

Dim dtPrevDate
Dim objFolder
Dim strFilePath

Dim objFolder2
Dim objFolderItem


strRootFolder = "d:\test"
strFileName   = "1Cv8.1CD"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strRootFolder) Then
		dtPrevDate = DateAdd("d", -1, Now())
		
		For Each objFolder In .GetFolder(strRootFolder).SubFolders
			strFilePath = .BuildPath(objFolder.Path, strFileName)
			
			If .FileExists(strFilePath) Then
				If DateDiff("d", .GetFile(strFilePath).DateLastModified, dtPrevDate) = 0 Then
					' Здесь Ваша обработка
					MsgBox "Здесь Ваша обработка"
				End If
				
				With WScript.CreateObject("Shell.Application")
					Set objFolder2 = .NameSpace(objFolder.Path)
					
					If Not objFolder2 Is Nothing Then
						Set objFolderItem = objFolder2.ParseName(strFileName)
						
						If Not objFolderItem Is Nothing Then
							objFolderItem.ModifyDate = dtPrevDate
						Else
							WScript.Echo "Can't determine file [" & strFileName & "] folder [" & objFolder.Path & "]."
						End If
					Else
						WScript.Echo "Can't determine folder [" & objFolder.Path & "]."
					End If
				End With
			End If
		Next
	Else
		WScript.Echo "Can't find folder [" & strRootFolder & "]."
	End If
End With

WScript.Quit 0