Ir para conteúdo
Fórum Có
Entre para seguir isso  
Ted k'

Usando o Persits.Upload e pegando o nome do arquivo

Recommended Posts

<form method="post" enctype="multipart/form-data" action="Teste.asp?Enviar=$">
Arquivo: <input type="file" name="Campo" />
<input type="submit" value="Enviar" />

If CStr(Request.QueryString("Enviar")) <> "" Then
    Dim Upload, PegaNomeCampo, NomeCampo

    Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto
    Upload.Save Server.MapPath("fotos") ' Salvando na pasta
    PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo

    NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
    Response.Write("Upload com Sucesso! O Nome da Foto: "&NomeCampo) ' Exibindo na tela
End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.


×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Entre para seguir isso  

  • Criar Novo...