Upload de arquivos via FTP

por **Paulo Soreto** Qui Fev 16, 2012 9:56 pm

Como vários membros já me disseram, diretamente e indiretamente, a área de vb está meio pobre (não acho isso, apenas acho que poucos visitam esta área). Bem, neste tutorial estarei ensinando a fazer o upload e o download de arquivos via ftp.
O processo é muito simples, basta ter um cérebro que coneguirá fazer.
Primeiramente crie um novo projeto.
Nele adicione 1 botão, 5 textbox, 1 OpenFileDialog e 1 ProgressBar.

Configurações:

Clique na 4ª textbox (txtSave), vá na aba de eventos, selecione o evento Click (o primeiro da lista).
Veja que foi gerado um código para este evento, agora dentro da sub gerada você adicionará o seguinte código:

Código:: sfdFile.ShowDialog() 'Abre o sfdFile Dim local As String = sfdFile.FileName 'Declara uma nova variável que assume o valor do local selecionado txtSave.Text = local 'Declara que o valor de texto da textbox txtSave será igual a variável local

Vou avisando que o script está todo comentado então não há riscos de se perder.
Agora dê 2 cliques no botão e adicione o seguinte código:

Código:: If txtFtp.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub ElseIf txtPass.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub ElseIf txtSave.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub ElseIf txtUser.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub Else Dim local, url, user, pass As String local = txtSave.Text 'Delcara a var como o valor da textbox url = txtFtp.Text & "/" & txtFileName.Text 'Delcara a var como o valor da textbox user = txtUser.Text 'Delcara a var como o valor da textbox pass = txtPass.Text 'Delcara a var como o valor da textbox My.Computer.Network.UploadFile(local, url, user, pass, True, 500) End If Dim file As FileInfo = New FileInfo(opnFile.FileName) pbUpload.Maximum = file.Length

Eu esqueci de falar antes, mas acima do "Public Class Form1" você tem que adicionar o seguinte código:

Código:: Imports System.IO 'Importando as classes

Para quem teve algum problema com o tutorial, vou por abaixo o link para download do programa e o código completo.
Código Completo:

Código:: Imports System.IO 'Importando as classes Public Class Form1 Private Sub txtSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSave.Click opnFile.ShowDialog() 'Abre o opnFile Dim local As String = opnFile.FileName 'Declara uma nova variável que assume o valor do local selecionado txtSave.Text = local 'Declara que o valor de texto da textbox txtSave será igual a variável local End Sub Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click If txtFtp.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub ElseIf txtPass.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub ElseIf txtSave.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub ElseIf txtUser.Text = "" Then 'Verifica se a textbox está vazia MsgBox("Preencha todos os campos!") 'Mensagem de aviso Exit Sub Else Dim local, url, user, pass As String local = txtSave.Text 'Delcara a var como o valor da textbox url = txtFtp.Text & "/" & txtFileName.Text 'Delcara a var como o valor da textbox user = txtUser.Text 'Delcara a var como o valor da textbox pass = txtPass.Text 'Delcara a var como o valor da textbox My.Computer.Network.UploadFile(local, url, user, pass, True, 500) End If Dim file As FileInfo = New FileInfo(opnFile.FileName) pbUpload.Maximum = file.Length End Sub End Class

Download:
http://www.mediafire.com/?p16io4dtym5stqd
Todos os créditos do tutorial e pelo programinha vão para mim, por te-lo feito e postado aqui na aldeia.

Ps: Eu disse no início do tutorial que iria ensinar a fazer o download também, porém acabei esquecendo, então irei postar outro tutorial depois ensinando a fazer isso.

por Sickness Qui Fev 16, 2012 10:01 pm

Exelente tuto muito ainda mais para mi que estou querendo sabe mais sobre vb

por **RD12** Qui Fev 16, 2012 11:14 pm

Muito bom mano vlw por postar, quando eu precisar vou vim aqui xD

por tenchuzinho Qui Fev 16, 2012 11:44 pm

Se eu fosse voceis n fazi nada via FTP tem um monte de hackers que adoram derrubar um site FTP

por **Valentine** Sex Fev 17, 2012 12:32 am

Muito bom cara, isso ajuda a fazer save no servidor no Netplay Master.

por **Paulo Soreto** Sex Fev 17, 2012 12:44 pm

Techuzinho o servidor FTP não tem que ser obrigartóriamente um site.
Talvez depois eu poste um tutorial ensinando a fazer um client ftp, é bem fácil. E é muito bom para transferir arquivos.

por Conteúdo patrocinado

Hitskin.com

Upload de arquivos via FTP

Upload de arquivos via FTP

Re: Upload de arquivos via FTP

Re: Upload de arquivos via FTP

Re: Upload de arquivos via FTP

Re: Upload de arquivos via FTP

Re: Upload de arquivos via FTP

Re: Upload de arquivos via FTP