Problema Em Código

[thicomp]

Pessoal, alguém saberia me dizer o problema deste if

Const forWriting=2, forAppending=8

Dim objteste, objstream, FSO, objname

set objteste = createobject("scripting.FileSystemObject")

if objteste.FileExists ("F:\teste\teste\"& doc &"\"& teste &"") = true then

'Renomeia arquivo antigo

objname.name ""& date &"_"& teste &""

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

Obrigado pela atenção

[bareta]

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

[thicomp]

Tentei mas mesmo assim não deu certo.

E mais, não posso retirar aquele comando porque preciso renomear meu arquivo antes de fazer a mudança.

Abçs

[.Andreia.]

mas o que acontece? apresenta algum erro?

[thicomp]

Ele não executa o "if"

Ele passa pelo if sem dar msg alguma e me retorna um erro qd chega no else. Mais precisamente nesta linha.

FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"

Neste código tem um problema que estou tentando renomear com a data atual, mas mesmo sem este comando, alterando de outra forma ele me retorna o mesmo erro.

ERRO

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/teste/teste/upload.asp, line 65

Vlw