SISTEMA DE DOWNLOAD COM LINKS EM TXT

ALTAIR148 27/09/2012 15:16:21
#410682
Dessa forma vai buscar o txt no mesmo local do executável.

 Dim Arquivo As New StreamReader(Application.StartupPath & [Ô]\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)
FERNANDOCTRLC 28/09/2012 10:10:03
#410751
Bom Dia
eu consegui resolver o problema do TXT
o codigo ficou assim

Private Sub bntdownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntdownload.Click

Dim URL As String
appPath = System.Windows.Forms.Application.StartupPath

Dim Arquivo As New StreamReader(appPath & [Ô]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)



[ô] If Dir$(CAMINHO) <> [Ô][Ô] Then
[ô] MsgBox([Ô]Arquivo Existe, DOWNLOAD CONCLUIDO[Ô])
[ô] End
[ô] Else
Dim wc As New System.Net.WebClient()

wc = New System.Net.WebClient()
Dim uri As New Uri(URL)

wc.DownloadFileAsync(uri, CAMINHO)
[ô] Assina eventos
AddHandler wc.DownloadProgressChanged, AddressOf Me.DownloadProgressChangedCallback
AddHandler wc.DownloadFileCompleted, AddressOf Me.DownloadFileCompletedCallback


[ô]End If
End While
MsgBox([Ô]Todos os Downloads Concluidos[Ô])
End Sub



Mas o problema e que os download estao sendo feitos simultaneamente
ele pega todos os links do txt e starta o download, com uma lista de 3 ou 4 downlod tudo bem, agora quando eu coloco acima de 5 lins os downlods ficam corrompidos, como fazer para que ele baixe um de cada ves ?
ALTAIR148 28/09/2012 10:16:14
#410753
Bom dia,

Para que um arquivo não atropele o outro você tem que usar threads.
ALTAIR148 28/09/2012 10:20:05
#410754
Olha tem esse EXEMPLO do Macoratti, amigo é só adaptar. Além disso você vai aprender um pouco sobre threads.
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar