Envio de dados por FTP utilizando ASP

OLÁ 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