Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
FAla Galera beleza?
Estou com um problema, preciso de um HELP.
Estou fazendo um UPLOAD com o SaFileUp.
Mas preciso mudar o nome do arquivo antes de ele subir.
Segue o codigo:
<%
Dim nome, myarray, nova_senha, nome_imagem
'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
'Configura o caminho onde arquivo será salvo
SaFileUp.Path = "E:\vhosts\ioadanca.com.br\httpdocs\asp-upload\03\img\"
'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
'Você pode usar também o caminho relativo se preferir
'SaFileUp.Path = Server.MapPath("./upload/")
'## ATIVA O TRATAMENTO DE ERRO ##
'Caso o usuário não indique um arquivo para upload, informa erro.
If SaFileUp.IsEmpty Then
response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
Else
' Variavel nova_senha recebe o paramentro GeraSenha
nova_senha=GeraSenha(6)
nova_senha= nova_senha & userFileName
response.Write nova_senha
' Vetor que pega a extensao do arquivo
myarray = Split(SaFileUp.userFileName, ".")
'myarray(0)
response.Write myarray(1) & "<br>"
nome_imagem= nome_imagem & nova_senha & "." & myarray(1)
response.Write nome_imagem
'Salva o arquivo no servidor
SaFileUp.Save(FILE1)
response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center><br>"
response.Write SaFileUp.userFileName & "<br>"
userFileName=userFileName & nome
' For i = 0 to Ubound(myarray)
' Response.Write i & " - " & myarray(i) & "<br>"
' Next
End if
'Gera um link html para retornar a pagina anterior
response.write "<center><a href='javascript:history.go(-1)'>Voltar</a></center>"
Set SaFileUp = NothingEle mostra pra mim o novo nome, que esta sendo gerado aleatoriamente, mas nao consigo fazer a troca dos nomes dos arquivos.
Alguem pode me ajudar?
Carregando comentários...