SISTEMA DE DOWNLOAD COM LINKS EM TXT

FERNANDOCTRLC 26/09/2012 21:36:00
#410614
Boa Noite a Todos.
sou iniciante em Vb,
Eu estou desenvolvendo uma aplicação em vb.net 2010 para download automatico.
o sistema devera ler um txt que esta na undade c:,o txt esta delimitado com pipe da seguinte maneira: [Ô]LINK| NOME DO ARQUIVO[Ô]
porem o sistema so esta baixando o primeiro link,
a primeiro momento o arquivo txt sera formado por 10 links, a caracter de teste eu coloquei somente 2 links no arquivo modelo anexo para teste
alguen consegue me ajudar ?

segue em anexo modelo de arquivo e codigo fonte.

obs: eu faço implantação de ERP e tenho que baixar varios arquivos no cliente pensando em adiantar meu trabalho no dia anterio a implantação eu coloco essa aplicação no cliente e deixo a noite inteira baixando.


Agradeço muinto se conseguirem me ajudar
FERNANDOCTRLC 26/09/2012 21:39:46
#410615
Seme Codigo fonte com modelo

http://www.4shared.com/rar/e3bNdIEd/Downloads_Automaticos.html
FERNANDOCTRLC 27/09/2012 10:49:21
#410650
Alguem ?
ALTAIR148 27/09/2012 11:38:15
#410658
Amigo, o link que postou quando pede para fazer o download ele pede para se cadastrar.

Anexo o seu projeto aqui no tópico mesmo.
FERNANDOCTRLC 27/09/2012 14:06:01
#410669
Opa Boa Tarde
quando eu tento anexar fala que o formato nao e aceito

Quais os Formatos que eu posso Anexar ?
ALTAIR148 27/09/2012 14:12:09
#410670
*.ZIP
FERNANDOCTRLC 27/09/2012 14:14:27
#410671
Obrigado
Segue o anexo
ALTAIR148 27/09/2012 14:19:17
#410673
faltou o arquivo txt que tem os links.
FERNANDOCTRLC 27/09/2012 14:32:40
#410676
Segue o arquivo TXT
ALTAIR148 27/09/2012 14:35:25
#410677
Cara, primeiramente dá uma simplificada nesse seu código e manda ele novamente, tá muito bagunçado.
FERNANDOCTRLC 27/09/2012 15:08:02
#410678
Muinto obrigado pela ajuda, como eu dise la atraz eu sou novo em vb somente organizando o codigo eu descobri onde estava a falha, o End While estava antes do download
mas agora eu estou com outra duvida.
eu queria que o sistema leia o arquivo txt onde o aplicativo estiver, porque ai e so colocoar os dois juntos e executar.


Dim Arquivo As New StreamReader([Ô]c:\epcad.txt[Ô])
Dim Texto As String = [Ô][Ô]
Dim Vetor() As String

While Not Arquivo.EndOfStream

Texto = Arquivo.ReadLine()
Vetor = Split(Texto, [Ô]|[Ô])
URL = Vetor(0)
CAMINHO = Vetor(1)

eu nao quero setar diretamente a unidade c:\ onde o executavel estiver o txt tambem vai estar.

Mais uma ves obrigado pela ajuda
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas