seguinte: to fazendo um sistema de upload de imagens e precisaria renomear o arquivo com um valor randomico... ficaria esse valor seguido do nome original da imagem
por exemplo:
92938_nome.jpg
91928_nome2.jpg
e assim por diante
ate ai td bem, ele realmente muda o valor da variavel da imagem, salva no banco td certinho com esse valor aleatorio, mas a imagem nao renomeia... tentei de diversas formas mas nao tem jeito...
alguem pode dar um help?
Function GerarChave(Valores) Dim teste_Array(9) teste_Array(0) = "0" teste_Array(1) = "1" teste_Array(2) = "2" teste_Array(3) = "3" teste_Array(4) = "4" teste_Array(5) = "5" teste_Array(6) = "6" teste_Array(7) = "7" teste_Array(8) = "8" teste_Array(9) = "9" Randomize Do While Len(Chave) < 06 Num = teste_array(Int(9 * Rnd )) Chave = Chave + Num Loop GerarChave = Chave End Function varChave = GerarChave(6) Server.ScriptTimeout=1000000000 On Error Resume Next Set Upload = Server.CreateObject("ASPSmartUpload.SmartUpload") Upload.AllowedFilesList = "gif,jpg" Upload.MaxFileSize = 1000000 Upload.TotalMaxFileSize = 4000000 Upload.Upload For each File in Upload.Files If File.Size > 0 Then imagem = varChave & "_" & File.FileName Upload.Save("/img_produtos") produto = request.querystring("produto_id") sqlString = "INSERT INTO imagens"&_ "(imagem, produto) VALUES ( '" & imagem & "','" & produto & "')" Conn.Execute sqlString Else Response.Write "O arquivo enviado é inválido" End if Next If Err Then Response.Write "Houve um erro: " & Err.Description End if Set Upload = Nothing
este code está funcionando, mas qdo uso um dos comando abaixo pra renomar a imagem ele da erro
file.SaveAs("/img_produtos" & imagem)
ou
Upload.Save("/img_produtos/"&imagem)
erro:
Unable to save file