Renomear Arquivo

[fabiosc80 0]

beleza Pessoal?

 

To com um probleminha.

 

Preciso renoar o nome de dois arquivos numa pasta mas do jeito que to fazendo ele só renoeia um arquivo o segundo ele fala que nao achou.

Queria alguma idéia.

 

Veja o código abaixo.

 

ASP [/tr][tr]

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&FotoGrande))

FotoGrande = "PGC_" & CodigoCategoria & "_" & FotoGrande

fileObject.Name = FotoGrande

Set fileObject = Nothing

Set fso = Nothing

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&FotoPequena))

FotoPequena = "PPC_" & CodigoSubCategoria & "_" & FotoPequena

fileObject.Name = FotoPequena

Set fileObject = Nothing

Set fso = Nothing

[/tr]

[rOcKLoCo 0]

http://www.w3schools.com/asp/asp_ref_filesystem.asp

 

falows

[fabiosc80 0]

http://www.w3schools.com/asp/asp_ref_filesystem.aspfalows

Só que la nao fala como faz pra renomear o nome de dois arquivos ao mesmo tempoSe é só com um da certo.

[rOcKLoCo 0]

http://www.w3schools.com/asp/asp_ref_filesystem.aspfalows

Só que la nao fala como faz pra renomear o nome de dois arquivos ao mesmo tempoSe é só com um da certo.

cara, isso num vai ter mesmo... verifica se a imagem existe... faz tratamento de erro... ai é só adaptar... falows

[fabiosc80 0]

http://www.w3schools.com/asp/asp_ref_filesystem.aspfalows

Só que la nao fala como faz pra renomear o nome de dois arquivos ao mesmo tempoSe é só com um da certo.

cara, isso num vai ter mesmo... verifica se a imagem existe... faz tratamento de erro... ai é só adaptar... falows

É mas o arquivo existe tanto é que ele ta indo pra pasta.Pq entao o FSO ta dando file not found?

[rOcKLoCo 0]

verifica o caminho completo... usa o FileExistsdá uma zoiada!!falows

[fabiosc80 0]

verifica o caminho completo... usa o FileExistsdá uma zoiada!!falows

Eu tava usando o GetFile.O fileExist é a mesma coisa?????

[JucaMaster 0]

if objFS.FileExists("caminho/nome") = true then 'Renomeia arquivo else ' não renomeia end if

[Mário Monteiro 179]

cara você relamente deve fazer este teste mesmo que tenha certeza que existe, evita muito pau...

[fabiosc80 0]

if objFS.FileExists("caminho/nome") = true then

 

'Renomeia arquivo

else

 

' não renomeia

 

end if

Oque eu fiz de errado aqui?

 

Agora ta falando que:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'objFS'

 

/mundo/prodcatinc2.asp, line 37

 

olha só como fiz....

 

ASP [/tr][tr]<!--#include file="conexao.asp"-->

<%

Dim CodigoCategoria,NomeProduto,Codigo,FotoGrande,FotoPequena,TB

' Variaveis

' *********

Dim mySmartUpload

Dim intCount

 

' Criando Objeto

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt,html,htm,png"

mySmartUpload.MaxFileSize = 2000000

 

' Upload

' ******

 

mySmartUpload.Upload

 

CodigoCategoria = mySmartUpload.form("CodigoCategoria")

NomeProduto = mySmartUpload.form("NomeProduto")

Codigo = mySmartUpload.form("Codigo")

 

 

For Each file In mySmartUpload.Files

FotoGrande = File.FileName

next

 

For Each file In mySmartUpload.Files

FotoPequena = File.FileName

next

 

' Salva o arquivo em um caminho virtual

' ****************************************************************************

intCount = mySmartUpload.Save("Upload")

 

if objFS.FileExists(Server.MapPath("UPLOAD/"&FotoGrande)) = true then

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&FotoGrande))

FotoGrande = "PGC_" & CodigoCategoria & "_" & FotoGrande

fileObject.Name = FotoGrande

Set fileObject = Nothing

Set fso = Nothing

 

elseif objFS.FileExists(Server.MapPath("UPLOAD/"&FotoPequena)) = true then

 

Set fso1 = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso1.GetFile(Server.MapPath("UPLOAD/"&FotoPequena))

FotoPequena = "PGC_" & CodigoCategoria & "_" & FotoGrande

fileObject.Name = FotoGrande

Set fileObject = Nothing

Set fso1 = Nothing

 

else

 

%>

<%

 

Dim SQ

 

SQ = ""

SQ = SQ & "INSERT INTO Produto"

SQ = SQ & "(CodigoCategoria,NomeProduto,Codigo,FotoGrande,FotoPequena)"

SQ = SQ & "VALUES( "

SQ = SQ & "" & CodigoCategoria & ","

SQ = SQ & "'" & NomeProduto & "',"

SQ = SQ & "'" & NomeProduto & "',"

SQ = SQ & "'" & FotoGrande & "',"

SQ = SQ & "'" & FotoPequena & "')"

 

end if

 

Dim BC : AbreBanco

SET TB = BC.Execute(SQ)

 

Response.Redirect("perguntaprod.asp")

 

%>

[/tr]

[FabricioGomes 0]

de novo, quem é CodigoCategoria e CodigoSubCategoriamanda mostrar com response.write antes de tudo e mostra o nome do arquivo que voce renomeará antes disso para ver se o nome esta sendo criado corretamente, ok?

[fabiosc80 0]

de novo, quem é CodigoCategoria e CodigoSubCategoriamanda mostrar com response.write antes de tudo e mostra o nome do arquivo que voce renomeará antes disso para ver se o nome esta sendo criado corretamente, ok?

Sim mais...Oque o codigo da sub categoria e da categoriatem a ver com minha duvida?você ta confundindo com o de ontem fabricio

[FabricioGomes 0]

como eu disse, cade a variavel Codigo que voce tinha colocado no topico inicial... agora sim, ta os dois com CodigoCategoria...no codigo para excluir a foto pequena, no nome do arquivo voce utiliza a variavel FotoGrande....ok?

[fabiosc80 0]

como eu disse, cade a variavel Codigo que voce tinha colocado no topico inicial... agora sim, ta os dois com CodigoCategoria...no codigo para excluir a foto pequena, no nome do arquivo voce utiliza a variavel FotoGrande....ok?

fabricio essa variavel nao interfere no erro pois o problema é no renomear.Foi legal voce ter me falado isso pois acabei de ver que meu insert ta errado e vai dar erro mas o renomear é outra coisa a parte.Arrumei o insert valeu mas ali no renomear ta dando o erro ainda, o mesmo erro que descrevi acima.

[Mário Monteiro 179]

aquele ultimo erro que você postou o nome do objeto ta erradovocê setou fileObject e chamou objFStroca e testa

[fabiosc80 0]

aquele ultimo erro que você postou o nome do objeto ta errado

 

você setou fileObject

 

e chamou objFS

 

troca e testa

Deu esse erro aqui:

 

Microsoft JET Database Engine error '80040e0c'

 

Command text was not set for the command object.

 

/mundo/prodcatinc2.asp, line 77

 

É a linha do insert

 

vou colocar o código aqui denovo pra você ver como fiz marioufpa

 

ASP [/tr][tr]<!--#include file="conexao.asp"-->

<%

Dim CodigoCategoria,NomeProduto,Codigo,FotoGrande,FotoPequena,TB

' Variaveis

' *********

Dim mySmartUpload

Dim intCount

 

' Criando Objeto

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt,html,htm,png"

mySmartUpload.MaxFileSize = 2000000

 

' Upload

' ******

 

mySmartUpload.Upload

 

CodigoCategoria = mySmartUpload.form("CodigoCategoria")

NomeProduto = mySmartUpload.form("NomeProduto")

Codigo = mySmartUpload.form("Codigo")

 

 

For Each file In mySmartUpload.Files

FotoGrande = File.FileName

next

 

For Each file In mySmartUpload.Files

FotoPequena = File.FileName

next

 

' Salva o arquivo em um caminho virtual

' ****************************************************************************

intCount = mySmartUpload.Save("Upload")

 

 

 

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.FileExists(Server.MapPath("UPLOAD/"&FotoGrande)) = true then

Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&FotoGrande))

FotoGrande = "PGC_" & CodigoCategoria & "_" & FotoGrande

fileObject.Name = FotoGrande

Set fileObject = Nothing

Set fso = Nothing

 

 

 

Set fso1 = CreateObject("Scripting.FileSystemObject")

elseif fso1.FileExists(Server.MapPath("UPLOAD/"&FotoPequena)) = true then

Set fileObject = fso1.GetFile(Server.MapPath("UPLOAD/"&FotoPequena))

FotoPequena = "PGC_" & CodigoCategoria & "_" & FotoGrande

fileObject.Name = FotoGrande

Set fileObject = Nothing

Set fso1 = Nothing

 

else

 

%>

<%

 

Dim SQ

 

SQ = ""

SQ = SQ & "INSERT INTO Produto"

SQ = SQ & "(CodigoCategoria,NomeProduto,Codigo,FotoGrande,FotoPequena)"

SQ = SQ & "VALUES( "

SQ = SQ & "" & CodigoCategoria & ","

SQ = SQ & "'" & NomeProduto & "',"

SQ = SQ & "'" & Codigo & "',"

SQ = SQ & "'" & FotoGrande & "',"

SQ = SQ & "'" & FotoPequena & "')"

 

end if

 

Dim BC : AbreBanco

SET TB = BC.Execute(SQ)

 

Response.Redirect("perguntaprod.asp")

 

%>

[/tr]

[fabiosc80 0]

Pessoal Problema Resolvido...meu chefe falou que naoprecisa mais renomear...é mole????????Bom menos mal né...

[Mário Monteiro 179]

Pessoal Problema Resolvido...meu chefe falou que naoprecisa mais renomear...é mole????????Bom menos mal né...

beleza então...