Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Ted k'

Persits.Upload - Pegando o nome do Arquivo

Question

Galera é uma coisa simples, mais que muita gente ainda fica perdido.

Antigamente eu ficava também, usava upload sem componentes, mais ai achei uma solução para o o Persits.Upload, apesar de não usar muito ele.

Esse script é muito simples, manda para a internet e pega o nome da imagem. Essa era uma grande complicação para a galera, cada um tinha seu jeito de fazer, creio que não achei o mais simples, mais achei um menos complicado!!

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

<%
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
%>

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

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

Guest
Answer this question...

×   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.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148593
    • Total Posts
      644302
×
×
  • Create New...