[Resolvido] Renomear arquivo antes de Copiar

[João Fernandes dos Santos 2]

Bom dia pessoal, olha eu ai mais uma vez.

 

O problema é o seguinte estou usando este código para gravar uma imagem em outro diretório.

 

   Dim s1 As String
       Dim s2 As String
       Dim pos As Integer

       s1 = FileUpload1.PostedFile.FileName 
       pos = s1.LastIndexOf("\") + 1
       s2 = s1.Substring(pos)

      FileUpload1.SaveAs("E:\Desenvolvimento\Mega\Mega\ImagensProdutos\" & s2)

 

 

Esta copiando certinho sem problemas. só que eu quero renomear este arquivo antes de copiar para o diretório novo.

Ou seja quero que o nome da imagem fique com o idProduto no diretório novo.

 

algum tem alguma sugestão? de como fazer isso?

 

 

aguardo.

[João Fernandes dos Santos 2]

Bom dia pessoal, olha eu ai mais uma vez.

 

O problema é o seguinte estou usando este código para gravar uma imagem em outro diretório.

 

   Dim s1 As String
       Dim s2 As String
       Dim pos As Integer

       s1 = FileUpload1.PostedFile.FileName 
       pos = s1.LastIndexOf("\") + 1
       s2 = s1.Substring(pos)

      FileUpload1.SaveAs("E:\Desenvolvimento\Mega\Mega\ImagensProdutos\" & s2)

 

 

Esta copiando certinho sem problemas. só que eu quero renomear este arquivo antes de copiar para o diretório novo.

Ou seja quero que o nome da imagem fique com o idProduto no diretório novo.

 

algum tem alguma sugestão? de como fazer isso?

 

 

aguardo.

 

 

 

RESOLVIDO:

 

Consegui resolver alterando o valor do s2 da seguinte forma:

 Dim s1 As String
       Dim s2 As String
       Dim pos As Integer

       s1 = FileUpload1.PostedFile.FileName 
       pos = s1.LastIndexOf("\") + 1

       s2 = :: aqui eu coloquei o id do produto e concatenei sua extensao ::

      FileUpload1.SaveAs("E:\Desenvolvimento\Mega\Mega\ImagensProdutos\" & s2)

 

 

Fica a dica.

 

 

Podem encerrar obrigado.