Jump to content

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


Recommended Posts

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???

Link to post
Share on other sites

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")

Link to post
Share on other sites

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.

Link to post
Share on other sites

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"

Link to post
Share on other sites

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()

Link to post
Share on other sites

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"

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.