Jump to content
ricknaldo

como fazer download de um arquivo dentro do VB???

Recommended Posts

ricknaldo

Eu queria fazer o download de um arquivo dentro do VB 2010...

exemplo:

eu vou em ADD > Existing Item

e adiciono um arquivo .TXT,por exemplo: meuarquivo.txt

Como eu faço para que quando uma pessoa clicar nesse botão,o arquivo txt vá para o PC dela???

Share this post


Link to post
Share on other sites
Caça

É algo deste tipo

My.Computer.Network.DownloadFile("Caminho de origem", "Caminho de destino")


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
ricknaldo

não,não cara!

Eu adicionei um arquivo TXT em meu projeto.

E vou distribuir meu projeto!

quero que quando as pessoas cliquem no botão,o arquivo TXt vá para o PC delas!

o Código que estou no momento,é esse:

My.Computer.Network.DownloadFile(My.Resources.meuarquivo, "C:\meuarquivo.txt")

Share this post


Link to post
Share on other sites
Caça

Podes mostrar essa informação sem usares um txt.

Basta colocares numa janela ou mostrares numa MsgBox

MsgBox(My.Resources.meuarquivo)


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
ricknaldo

Mas eu quero que quando a pessoa clique no botão,o 'meuarquivo' da resource,vá para o PC dela.

Estou com esse código:

My.Computer.Network.DownloadFile(My.Resources.meuarquivo, "C:\meuarquivo.txt")

Mas quando eu clico no botão,aparece um erro.

Share this post


Link to post
Share on other sites
ribeiro55

Olá ricknaldo

Se o que adicionaste às resources foi um TXT, o Caça já te explicou que é automaticamente convertido para string.

Se for imagem, é convertido para um bitmap, ou image (não recordo), WAV para um som, e por aí fora com vários formatos.

Se o ficheiro que adicionas não é de formato conhecido, tal como um ZIP, este torna-se, nos resources, um array de Byte.

Desta forma, basta-te abrir um FileStream e escrever os Bytes do array para o ficheiro:

        Dim FS As New IO.FileStream("C:\meuarquivo.zip", IO.FileMode.OpenOrCreate)

       For Each B As Byte In My.Resources.meuarquivo
           FS.WriteByte(B)
       Next

       FS.Close()

Nota que se vais tentar escrever para a raíz do C (C:\) em Windows Vista para cima, é muito provável que o sistema operativo te mostre o dedo.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
aprendiz93

Boa tarde tentei implementar isto no meu projeto tb colocando este codígo mais esta dando erro na linha"My.Resources.meuarquivo" tentei com arquivo txt e imagem tb.

        Dim FS As New IO.FileStream("C:\wallpaper.zip", IO.FileMode.OpenOrCreate)

       For Each B As Byte In My.Resources.wallpaper
           FS.WriteByte(B)
       Next

       FS.Close()

Share this post


Link to post
Share on other sites
ribeiro55

Se o que adicionaste às resources foi um TXT, o Caça já te explicou que é automaticamente convertido para string.

Se for imagem, é convertido para um bitmap, ou image (não recordo), WAV para um som, e por aí fora com vários formatos.

Se o ficheiro que adicionas não é de formato conhecido, tal como um ZIP, este torna-se, nos resources, um array de Byte.

Ou seja, imagem e txt são formatos que são automaticamente convertidos para Bitmap e String, respectivamente, e consequentemente não podem ser tratados dessa forma mas de outras específicas para imagem e texto.

Pensei que tinha sido explícito em relação a isto.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.