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

Outros artigos

Assine o Feed desta categoria

• ASP com Procedures SQL - 06/11/2009
• Data Automatica em ASP - 30/07/2009
• Criando uma "matriz" com o Session - 23/09/2008
• Sistema de Newsletter em ASP - 15/02/2008
• Ver mais...

Comentários do artigo [Novo comentário]