Problema em código

[thicomp 0]

Oi galeraBom, estou com este código para mover um arquivo para determinada pasta:<%Const forReading = 1, forWriting = 2, forAppending = 8Dim FSOFSO.MoveFile "C:\cm\and\txt\"& request.querystring("nome") &".txt","C:\cm\conc"FSO.MoveFile "C:\cm\and\txt\"& request.querystring("nome") &".txt","C:\cm\conc"%>O problema é que ele está me retornando o erro abaixo e não sei como resolverMicrosoft VBScript runtime error '800a01a8' Object required: '' /cm/and/mov.asp, line 4Obrigado pela atenção

[ultra 0]

Acho q a request.querystring("nome") está retornando vazio, não ?experimenta dar um response.write na linha e posta oq aparece

[thicomp 0]

É isso mesmo, tá retornando vazio<%Const forReading = 1, forWriting = 2, forAppending = 8Dim FSOresponse.write "FSO.MoveFile "C:\cm\and\txt\"& request.querystring("nome") &".txt","C:\cm\conc" "FSO.MoveFile "C:\cm\and\txt\"& request.querystring("nome") &".txt","C:\cm\conc"%>E na URL da página ele carrega o valor.

[ultra 0]

então, problema resolvido ?

[thicomp 0]

Não, pq ele carrega o valor na url mas não carrega na página

[Mário Monteiro 179]

como ta vindo na URL??

[thicomp 0]

Tá vindo assim

 

http://cm/and/mov.asp?nome=0105

[Mário Monteiro 179]

só um detalhe voce criou o objeto FSO?? pois o erro inicial é esse...

[thicomp 0]

Olha aí<%Const forReading = 1, forWriting = 2, forAppending = 8Dim FSOSet FSO = CreateObject("Scripting.FileSystemObject")FSO.MoveFile "F:\cm\and\txt\"& request.querystring("nome") &".txt","F:\cm\conc"FSO.MoveFile "F:\cm\and\txt\"& request.querystring("nome") &"1.txt","F:\cm\conc"%>Tá me retornando tal erro:Microsoft VBScript runtime error '800a003a' File already exists /cm/and/mov.asp, line 5Arquivo já existente, mas onde???

[ultra 0]

não existe já algum arquivo com o mesmo nome na pasta "f:\cm\conc" ?

[thicomp 0]

Não existe não

[thicomp 0]

Galera, erro resolvido

 

<%

Const forReading = 1, forWriting = 2, forAppending = 8

Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.MoveFile "F:\cm\and\txt\"& request.querystring("nome") &".txt","F:\cm\conc\"

FSO.MoveFile "F:\cm\and\txt\"& request.querystring("nome") &"1.txt","F:\cm\conc\"

%>

 

O problema era a barra invertida no final do caminho destino

 

Muito obrigado a todos que me ajudaram

Vlw