papka = "C:\12345\" ' папка, с которой работаем
papka1 = "C:\\123\\" 'Куда копируем.
temp = 0
set FSO = CreateObject("Scripting.FileSystemObject") 
Set MyFile = fso.GetFolder(papka)
Set fc = MyFile.files
   For Each MyFile in fc
      s = MyFile.name 
      set strFile = FSO.GetFile(papka & s)
      dtelastmodified = strFile.datecreated 'проверяем дату создания файла
      if temp < dtelastmodified then 
          file = s  
          temp = dtelastmodified
      end if 
   Next
'msgbox file
'msgbox temp
set WshShell1 = WScript.CreateObject("WScript.Shell") 
filePath1 = papka & file 'Тут указываем, то что копируем
fso.CopyFile filePath1, papka1

ugeproc=ugeproc++;