Manipulação de Arquivos

[thicomp 0]

Pessoal, alguem 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

[hargon 64]

Só isso? Além de falar que a página não pode ser exibida não mostra o tipo de erro e em qual linha está não?

[jrcardozo 4]

verifique as permissões de acesso desta página, você tem que ter permissão para ler e executar

[thicomp 0]

Não é retornado erro algum na página, apenas aparece q 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

[thicomp 0]

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

 

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 &"")				[color="#FF0000"]fileobject.Name = UCase(name)				name1 = UCase(name)[/color]												  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				[color="#FF0000"]fileobject.Name = UCase(name)				name1 = UCase(name)[/color]				objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\"& name1 &"","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"			end if