Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Upload de arquivos via FTP
5 participantes
Página 1 de 1
Upload de arquivos via FTP
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.
_________________
Re: Upload de arquivos via FTP
Exelente tuto muito ainda mais para mi que estou querendo sabe mais sobre vb
_________________
Sikts feitas por min nao roubem,se quiserem pessa que eu fasso
Sickness- Ocasional
- Mensagens : 150
Créditos : 15
Re: Upload de arquivos via FTP
Se eu fosse voceis n fazi nada via FTP tem um monte de hackers que adoram derrubar um site FTP
_________________
tenchuzinho- Experiente
- Mensagens : 574
Créditos : 10
Re: Upload de arquivos via FTP
Muito bom cara, isso ajuda a fazer save no servidor no Netplay Master.
Re: Upload de arquivos via FTP
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.
Talvez depois eu poste um tutorial ensinando a fazer um client ftp, é bem fácil. E é muito bom para transferir arquivos.
_________________
Tópicos semelhantes
» Download e Upload de arquivos!
» Meu site de Upload de Imagens!
» [Resolvido]alguem poderia tentar dar um upload no ...
» UPload Dowload files with rgss!!!!! Ayuda criar una window!!!!!
» Raimundo Knigth
» Meu site de Upload de Imagens!
» [Resolvido]alguem poderia tentar dar um upload no ...
» UPload Dowload files with rgss!!!!! Ayuda criar una window!!!!!
» Raimundo Knigth
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos