Servidor X Ftp

[alexandrejpc10]

Bom dia pessoal. estou precisando de copiar um arquivo do ftp para o servidor ... como posso fazer isso usando inet?

inet x bat existe alguma diferença em termos de eficiência?

[lcs_sp]

A eficiência é a mesma

de uma olhada no site

http://www.bufaloinfo.com.br/Artigos/artigo0610.asp

[alexandrejpc10]

OLHA TEM ALGO ERRADO COM O MEU CODIGO VOCE PODE ME AJUDAR

Dim oi As Inet

Dim b

arqurl = "http://www.microsoft.com"

B=oi.OpenURL(arqurl)

não da certo

ou

Dim a As Inet

Dim b

Set b = New Inet

b = a.OpenURL("http://www.microsoft.com")

End Sub

tambem não da... alguém pode erspecificar para mim?

[lcs_sp]

Vá em Project --> components

Marque o Microdoft Internet Transfer Control

irá aparecer um novo componente ca caixa de ferramentas (um computardor com um globo no fundo)

adicione este item no formulário (por default ele vem com o nome de Inet1)

insira este código no formulário

Private Sub Form_Load()

rtfHTMLDoc = Inet1.OpenURL("http://www.microsoft.com")

MsgBox rtfHTMLDoc

End Sub

[alexandrejpc10]

Valeu....mas aqui não deu 100 por cento certo.. eu consegui adicionar..agora consigo digitar um endereço e acessa-lo...

mas o inet1 não deu ainda... quando seleciono o globo com o pc aparece não é possível localizaro servidor da internet ou o servidor proxy.. o que faco para usar esse código

ih na verdade não deu certo...

[lcs_sp]

você utiliza outro navegador diferente do IE ???, pois ele pega as configurações dele.

[alexandrejpc10]

Não .. mas na verdade não consigo achar o computadorzinho com o globo.. esse computador com o globo é da barra de ferramentas da web?

Aparece essa mensagem não é possível acessar o servidor internet ou servidor proxy quando eu clico nesse globo.. Minha dificuldade é o seguinte.. gostaria de baixar um arquivo situano do ftp e copialo para o servidor e estou apanhando já tem uma semana e não consigo

[lcs_sp]

Alexandre,

Baixe este exemplo que eu fiz e vê se funciona

Exemplo

[alexandrejpc10]

Nossa .. você está me ajudando mesmo... valeu;; mas aqui seria pedir muito voCê escrever o código .. porque na verdade eu to fazendo isso via vba excel é mais ou menos o mesmo ambiente mas não sei como colocar isso no exvcel para eu visualizar!

[lcs_sp]

Alexnadre,

Vá na caixa de ferramentas, clique com o botão direito vá em controles adicionais e selecione o Microsoft Internet Transfer Control ai vai aparece um novo controle ai e só adicionar e inserir o codigo abaixo em um botão

Private Sub CommandButton1_Click()

Dim texto As String

texto = inet1.openurl("http://www.microsoft.com.br")

MsgBox texto

End Sub

Alexnadre,

Pode ser que no excel não funcione evido a limitações de registros dos componentes se num funcionar ai você vai ter que apelar para um .bat

crie um arquivo .bat com os comando abaixo

@echo off

cls

echo ----------------------------------------------------

echo - Sistema de Backup na WEB -

echo - Modulo DIARIO -

echo ----------------------------------------------------

@echo off

ftp -s:put.txt ftp.dominio.com.br

crie um arquivo put.txt com os comando para acesso ao ftp ex:

usuario

senha

prompt

cd dados

bin

hash

mput base.zip

close

bye

[alexandrejpc10]

A mensagem que aparece diz o seguinte ... O objeto é obrigatorio.. ou seja o vba não está reconhecendo o inet1... eu fui em referencias e adicionei o microsoft internet transfer control 6.0 e mesmo assim o probelma está com o objeto inet 1.. você acha que tem jeito?

[lcs_sp]

Alexandre,

Não conheço muito de VBA, mas acho que ele tem limitaçãoes, mas não sei lhe dizer ao certo se tem ou não uma maneira.

[alexandrejpc10]

Como crio o arquivo .bat?

[lcs_sp]

Alexandre,

crie um arquivo com extensão .bat exe.: "arqiovo.bat"

aqui um exemplo do conteudo do arquivo

@echo off

cls

echo ----------------------------------------------------

echo - Sistema de Backup na WEB -

echo - Modulo DIARIO -

echo ----------------------------------------------------

@echo off

ftp -s:put.txt ftp.dominio.com.br

crie um arquivo "put.txt" com os comando para acesso ao ftp ex:

usuario

senha

prompt

cd dados

bin

hash

mput base.zip

close

bye

[alexandrejpc10]

Qual comando utilizo para criar o .bat?

[lcs_sp]

abra o bloco de notas

[alexandrejpc10]

mput ou input?: bin hash eu preciso definir?

Eu consigo salvar direto o arquivo em um servidor:??? ftp- servidor.. ou eu preciso copiar para meu computador e depois encaminhar? onde eu especifico aonde eu qurero que o arquivo seja salvo?

[lcs_sp]

Precisa salvar antes

de uma olhada neste site http://www.icmc.usp.br/manuals/BigDummy/ftp.html