Manipulação De Arquivos

[thicomp]

Pessoal, alguém poderia me dar uma ajuda nesse código... Não consigo achar onde está o erro... Ele faz o Upload do arquivo, mas quando chega nesta parte do código, aparece que a página não pode ser exibida... Alguém teria alguma sugestão...

Abçs

if objteste.FileExists ("F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name &"") = true then
                Set fileobject = fso.GetFile("F:\Root\Proj\"& session("proj") &"\SINT\"& session("prod")&"\"& name &"")
                'Renomeia arquivo antigo
                fileobject.Name = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &""
                name1 = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &""
                'Move arquivo antigo para a pasta img_ant
                objteste.MoveFile "F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name1 &"","F:\Root\Proj\img\img_ant\"
                'Renomeia arquivo atual com letras maiusculas e move para a pasta específica
                Set fileobject = fso.GetFile("F:\Root\Proj\img\img_ant\atual\"& name &"")
                fileobject.Name = UCase(name)
                name1 = UCase(name)
                                                  objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"
            else
                'Renomeia arquivo atual com letras maiusculas e move para a pasta específica
                fileobject.Name = UCase(name)
                name1 = UCase(name)
                objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\"& name1 &"","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"
            end if

[bareta]

da erro em qual linha e qual erro?

[Principe]

Pode ser problema de permissão, é isso aí que o Bareta disse, põe o erro e a linha aqui pra nós ;)

[thicomp]

Não é retornado erro algum na página, apenas aparece que a página não pode ser exibida...

As permissões estão definidas certinho sim...

Só mais uma coisa do que está acontecendo...

Ele faz o envio do arquivo, acontece que ele envia o arquivo para a pasta definida por este caminho

"F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name1 &"" (aqui deveria ser colocada a imagem atual, renomeada utilizando UCase)

com a nomeação

"& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &""

que deveria ser movida para a pasta "F:\Root\Proj\img\img_ant\" (aqui estaria os arquivos antigos, renomeados com este nome acima)

Não sei se deu pra entender

Pessoal, acabei descobrindo que o meu problema está nas linhas em vermelho... Alguém teria alguma sugestão pra me dar??

Abçs

Set fileobject = fso.GetFile("F:\Root\Proj\"& session("proj") &"\SINT\"& session("prod")&"\"& name &"")

'Renomeia arquivo antigo

fileobject.Name = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &""

name1 = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &""

'Move arquivo antigo para a pasta img_ant

objteste.MoveFile "F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name1 &"","F:\Root\Proj\img\img_ant\"

'Renomeia arquivo atual com letras maiusculas e move para a pasta específica

Set fileobject = fso.GetFile("F:\Root\Proj\img\img_ant\atual\"& name &"")

fileobject.Name = UCase(name)

name1 = UCase(name)

objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"

else

'Renomeia arquivo atual com letras maiusculas e move para a pasta específica

fileobject.Name = UCase(name)

name1 = UCase(name)

objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\"& name1 &"","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"

end if

Editado Junho 18, 2007 por thicomp

[Principe]

Não sei se a propriedade Name pode ser alterada.

Pra renomear um arquivo, use a função MoveFile.

Editado Junho 18, 2007 por Principe

[thicomp]

Então, é justamente isso que o código está fazendo, o problema é que não estou conseguindo fazer com que o nome seja alterado...

Abçs