[Resolvido] Upload asp

[bsaleze 0]

Tenho um sistema de upload q esta funcionando, mas gostaria de colocar o nome do arquivo o numero do cod (para nao repetir).

 

Como fazer isso?

 

<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
descricao = UploadRequest.Item("descricao").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("arquivo").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("arquivo").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))



' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("arquivo").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("../../album_fotos/fotos_pintura") & "\"

'nome_foto = "/"&nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
	MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
	MyFile.Close
end if
%>

[Mário Monteiro 179]

Colocar isso no nome do arquivo?

 

Se for use FSO para renomear

[bsaleze 0]

pq nao posso ter o nome dos arquivos repetidos!!!

[Mário Monteiro 179]

isso é uma pergunta?

[bsaleze 0]

Nao. Todos os arquivos (fotos) ficam na mesma pasta, por isso nao posso ter arquivos com o nome repetido. Pensei em utilizar o numero do cod_foto (auto incremento) como nome da foto.

[Mário Monteiro 179]

Então use FSO para renomear a imagem como desejar

[wilnet 92]

Veja se isso te ajuda, eu uso essa função.

 

Chamando a Função:

filename = Replace(filename,".","_"& rndit &".")

 

Função:

 

Function rndit()
Dim RndTemp 
Randomize 
RndTemp = Rnd * 100 
RndTemp= Int(RndTemp) 
rndit = RndTemp 
End Function 
PasswordTemp = rndit()

 

Na linha "RndTemp = Rnd * 100" aqui você determina quantos caracteres irá add a sua foto, neste caso três.

 

O sistema randomiza, então nunca terá a foto com mesmo nome.

 

Exemplo: caso suba um foto de nome "foto01.jpg" a ela após ser upada ficará assim: "foto01_256.jpg" e assim por diante.

 

Espero que ajude.

[bsaleze 0]

Wilnet deu certo... muito obrigado!!!