Envio de dados por FTP utilizando ASP

[fernandosena]

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