Kayo,
Vou postar um vbs
strPastaOrigem = "C:\Temp"
strPastaDestino = "C:\Temp2"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Pasta = fso.GetFolder(strPastaOrigem)
Set Arquivos = Pasta.Files
dtUltimaData = DateAdd("y",-100,now)
strUltimoArquivo = ""
For each Arquivo In Arquivos
if Arquivo.DateLastModified >= dtUltimaData then
strUltimoArquivo = Arquivo.Name
dtUltimaData = Arquivo.DateLastModified
end if
next
wscript.echo "O ultimo arquivo gravado no diretorio " & strPastaOrigem & _
" foi o " & strUltimoArquivo & " em " & dtUltimaData
wscript.echo strPastaOrigem & "\" & strUltimoArquivo
'Mover o Arquivo
if strUltimoArquivo <> "" then fso.moveFile strPastaOrigem & "\" & strUltimoArquivo , strPastaDestino & "\"
'Referencia(s): http://msdn.microsoft.com/en-us/library/2z9ffy99(VS.85).aspx
Testa e posta o resultado
