Olá! Wednesday, 24 de July de 2019.



Dicas CódigoFonte.net
Tuesday, 22 de June de 2010

Envio de dados por FTP utilizando ASP

Boa noite a todos, este artigo traz luz a uma duvida que tive a algum tempo atras, onde eu procurava uma forma de enviar um arquivo por upload sem usar o objetos, apenas scripts e asp limpo.

Estava fazendo um automatizador VBA com o Objeto instanciado InternetExplorer, e através dessa instancia, eu logava nas paginas de administração de um determinado site, e ali fazia automaticamente as alterações necessárias.

            sURL = "http://www.seusite.com.br"
            Set obrowser = New InternetExplorer
            obrowser.Silent = True
            obrowser.navigate sURL

Lembrando que o conteudo da pagina pode ser conseguida com o seguinte comando

CONTEUDO = obrowser.Document.body.innerHTML

Bem, eu criei um .BAT para enviar os arquivos necessários

um bat mais ou menos assim:

@echo off
c:
cdfotos
ftp -s:put.txt ftp.seusite.com.br
exit

esse arquivo .bat chama um script com o parametro -s com o nome de put.txt

veja abaixo o conteudo do arquivo put.txt

logindoseuftp

senhadoseuftp

cd fotos

mput arquivo1.jpg

mput arquivo2.jpg

mput arquivo3.jpg

bye

disconnect

logicamente que voce deve alterar o conteudo do nome dos arquitos, as duas primeiras linhas dizem respeito ao seu nome de usuario e senha no ftp do dominio desejado.

outra forma de fazer isso é mostrada no codigo abaixo, em VBA


para baixar imagens via codigo

   DoEvents
   If DownloadFile("http://www.seusite.com.br/static/img/veic/rev/" & Left$(filename1, Len(filename1) - 6) & "g1.jpg", "c:fotos" & nomefile & "") Then
   On Error GoTo 99
      hfile = FreeFile
      Open "c:fotos" & nomefile For Input As #hfile
         Text1.Text = Input$(LOF(hfile), hfile)
      Close #hfile


End If

abaixo segue a funcao downloadfile

Public Function DownloadFile(sSourceUrl As String, _
                             sLocalFile As String) As Boolean


   DownloadFile = URLDownloadToFile(0&, _
                                    sSourceUrl, _
                                    sLocalFile, _
                                    BINDF_GETNEWESTVERSION, _
                                    0&) = ERROR_SUCCESS
  
End Function


Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010