Portal
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.
Veja que foi gerado um código para este evento, agora dentro da sub gerada você adicionará o seguinte código:
Agora dê 2 cliques no botão e adicione o seguinte código:
Código Completo:
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.
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:
- Config do botão
Text: Upload
Name: btnUploadConfig da 1ª TextBox
Text: Host FTP
Name: txtFtpConfig da 2ª TextBox
Text: Usuário
Name: txtUserConfig da 3ª TextBox
Text: Senha
Name: txtPassConfig da 4ª TextBox
Text:
Name: txtSaveConfig da 5ª TextBox
Text:Nome do arquivo com extenção (file.txt)
Name: txtFileNameConfig do OpenFileDialog
Name: opnFileConfig da ProgressBar
Name: pbUpload
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
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
- Código:
Imports System.IO 'Importando as classes
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
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.
