AJUDA COM DOWNLOAD WEBSERVICE

 Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim service As New THGService.Service()
        Dim arquivo As Byte() = service.Download_Arquivo([Ô]INTEGRADOR-UBS.exe[Ô])
        System.IO.File.WriteAllBytes([Ô]INTEGRADOR-UBS.exe[Ô], arquivo)
    End Sub

  <WebMethod>
    Public Function Download_Arquivo(nomeDoArquivo As [String]) As Byte()
        [ô]PEGA O CAMINHO DO ARQUIVO
        Dim arquivo As [String] = Server.MapPath([Ô]~/Atualizacao/[Ô]) + nomeDoArquivo
        [ô]ACESSANDO O ARQUIVO
        Dim fileStream As System.IO.FileStream = System.IO.File.Open(arquivo, System.IO.FileMode.Open, System.IO.FileAccess.Read)
        [ô]CRIANDO E DEFININDO O TAMANHO DO OBJETO QUE VAMOS RETORNAR
        Dim arquivoByte As Byte() = New Byte(fileStream.Length - 1) {}
        [ô]LENDO O OBJETO STREAM E ADICIONANDO EM arquivoByte 
        fileStream.Read(arquivoByte, 0, Convert.ToInt32(fileStream.Length))
        [ô]FECHANDO O ARQUIVO
        fileStream.Close()
        Return arquivoByte
    End Function