sei não...
Const forWriting=2
Const forAppending=8
Dim objteste, objstream, FSO, objname
set objteste = createobject("scripting.FileSystemObject")
if objteste.FileExists ("F:\teste\teste\"& doc &"\"& teste &"") = true then
teste1 = ""& date &"_"& teste &""
'Move arquivo antigo para a pasta alt
FSO.MoveFile "F:\teste\teste\"& doc &"\"& teste1 &"","F:\teste\teste\"& doc &"\alt\"
'Move arquivo atual para a pasta específica
FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"
else
'Move arquivo para página específica
FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"
end if
tenta asim