Renomear arquivo

[thicomp 0]

Pessoal, estou com este código aqui mas ele está me retornando um erro. Alguém poderia me ajudar??. O problema ocorre nesta parte em vermelho.

 

<%

Const forWriting=2, forAppending=8

Dim objteste, objname, fso

set objteste = createobject("scripting.FileSystemObject")

set objname = createobject("scripting.FileSystemObject")

set fso = createobject("scripting.FileSystemObject")

'Verifica se arquivo existe na pasta especifica

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

Set fileobject = fso.GetFile("F:\teste\teste\"& doc &"\"& teste &"")

'Renomeia arquivo antigo

objname.Name = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& teste &""

teste1 = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& teste &""

'Move arquivo antigo para a pasta alt

objteste.MoveFile "F:\teste\teste\"& doc &"\"& teste1 &"","F:\teste\teste\"& doc &"\alt\"

'Move arquivo atual para a pasta específica

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

else

'Move arquivo para pasta específica

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

end if

set objteste = nothing

set fileObject = nothing

%>

 

O ERRO

 

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Name'

/Cristalia/teste/teste/upload.asp, line 76

 

Alguém teria alguma sugestão pra me dar??

Abçs

[thicomp 0]

Pessoal, problema resolvidoSe alguém precisar do código, poste aí

[thicomp 0]

Galera, o código está aí... Espero que seja útil

 

Dim objteste, objname, fso

set objteste = createobject("scripting.FileSystemObject")

set objname = createobject("scripting.FileSystemObject")

set fso = createobject("scripting.FileSystemObject")

'Verifica se arquivo existe na pasta especifica

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

Set fileobject = fso.GetFile("F:\teste\teste\"& doc &"\"& teste &"")

'Renomeia arquivo antigo

fileobject.Name = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& teste &""

teste1 = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& teste &""

'Move arquivo antigo para a pasta alt

objteste.MoveFile "F:\teste\teste\"& doc &"\"& teste1 &"","F:\teste\teste\"& doc &"\alt\"

'Move arquivo atual para a pasta específica

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

else

'Move arquivo para pasta específica

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

end if

set fileObject = nothing

set objteste = nothing

set objname = nothing

set fso = nothing