Acessando ftp

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (807 palavras )
  • Download(s) : 0
  • Publicado : 20 de fevereiro de 2013
Ler documento completo
Amostra do texto
Acessando arquivos do Correios via FTP

Para muitos programadores, acessar o FTP da empresa Correios de forma automatizada tem pode ser uma labuta e tanta, foi o meu caso em VB6.
Até desisti,mas agora estou migrando os sistemas para vb.net e encontrei muita coisa útil (Frameworks) que facilitam a nossa vida.

Tive alguns problemas no inicio e foram com os exemplo da WEB e do VBMania quechei a conseguir listar os arquivos com a ajuda de um membro do VBMania, o Alevale no tópico ( http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=416947&varWorld= ).Depois tive o problema do download.
Que em outros exemplo também com conseguia o download.
As Questões dos problemas são as mesmas, aqui na empresa se usa um Proxy.
Com os arquivos que preciso, eacho que é o caso da maioria, são só TXT, fiz assim:
Ele abre o arquivo -> Lê o arquivo -> Escreve o arquivo (em um diretório pré selecionado)

Precisaremos de:
1 – Form
1 – ListBox
1 – Botão2 – Módulos

No Botão:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Cria A lista de arquivos para download
Call GetFileList("ftp://000.000.000.000","USUARIO_ftp", "SENHA_ftp", "/PASTA_NO_ftp/")

'Faz uma pausa para atualizar a lista (ListBox1)
System.Windows.Forms.Application.DoEvents()

'Faz o Download dos arquivos listados
CallDownloadLista("ftp://000.000.000.000", "USUARIO_ftp", "SENHA_ftp", "/PASTA_NO_ftp/", "Pasta_Destino")

MsgBox("Download concluído.")

End Sub=====================================================================================================================================
No Modulo1:
Imports System.Net
Imports System.IO

Module Module1

Private m_ftpClient As SimpleFTPClient

PublicFunction GetFileList(ByVal host As String, ByVal username As String, ByVal password As String, ByVal currentdirectory As String) As List(Of String)


Dim fwr As Net.FtpWebRequest =...
tracking img