4 replies to this topic

[_UsP_]

Ae gente boa

Tipo, gostaria de renomear um arquivo .txt
Eu usei a seguinte sintaxe ( porem não sei se tar certo )

Nome = Replace(Request("nome"),"'","''")
sqlVerificar = "Select*From Arquivos WHERE arquivo='"&nome&".txt'"
Set Verificar = Conexao.Execute(sqlVerificar)
if not Verificar.eof then
Response.Redirect "index.asp?Erro=1"
else
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Pasta = FSO.GetFolder("C:\Inetpub\wwwroot\SoSASP\CodigosFontes\FSO")
Set Arquivos = Pasta.files
Set Arquivo = Arquivos.iten(Session("NomeArquivoAlvo"))
Arquivo.Name = Nome
sql = "UPDATE Arquivos SET Arquivo='"&nome&".txt' WHERE Arquivo='"&Session("NomeArquivoAlvo")&"'"
Set RenomearAlvo = Conexao.Execute(sql)
Response.Redirect "index.asp"
end if

Da um help ae

[_UsP_]

não sei se isso vai ajudar.
porem, eu acho que não existe uma sintaxe pra isso não.
Alguém pode me ajudar?

[cybermix]

a solucao seria ler o conteudo do aruqivo, criar outro, escrever o conteudo nesse outro e apagar o 1º

se tiver alguma duvida em ler conteudo, criar e deletar arquivos poste aqui que eu posto um exemplo

[_UsP_]

Cybermix.... tinha feito isso
So que deu erro no ReadAll olha ae

Nome = Replace(Request("nome"),"'","''")
sqlVerificar = "Select*From Arquivos WHERE arquivo='"&nome&".txt'"
Set Verificar = Conexao.Execute(sqlVerificar)
if not Verificar.eof then
Response.Redirect "index.asp?Erro=1"
else
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Caminho = Server.MapPath(Nome)
Caminho2 = Server.MapPath(Session("NomeArquivoAlvo"))
FSO.CreateTextFile(Caminho)
Set OpenText = FSO.OpenTextFile(Caminho2)
Conteudo = OpenText.ReadAll
Set OpenText2 = FSO.OpenTextFile(Caminho)
OpenText2.write Conteudo
OpenText2.close
FSO.DeleteFile Session("nomeArquivoAlvo")
sql = "UPDATE Arquivos SET Arquivo='"&nome&".txt' WHERE Arquivo='"&Session("NomeArquivoAlvo")&"'"
Set RenomearAlvo = Conexao.Execute(sql)
Response.Redirect "index.asp"
end if

Não sei se mais pra frente tem erro

[_UsP_]

eheh consegui
burrise minha
ta ae pra quem quiser

Nome = Replace(Request("nome"),"'","''")
sqlVerificar = "Select*From Arquivos WHERE arquivo='"&nome&".txt'"
Set Verificar = Conexao.Execute(sqlVerificar)
if not Verificar.eof then
Response.Redirect "index.asp?Erro=1"
else
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Caminho1 = Server.MapPath(Session("NomeArquivoAlvo"))
Caminho2 = Server.MapPath(Nome&".txt")
FSO.MoveFile Caminho1, Caminho2
sql = "UPDATE Arquivos SET Arquivo='"&nome&".txt' WHERE Arquivo='"&Session("NomeArquivoAlvo")&"'"
Set RenomearAlvo = Conexao.Execute(sql)
Response.Redirect "index.asp"
end if

T+