Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each Lst.SelectedItems In
Next
timer.Start()
Dim url As String
url = "ftp://" & ftp.Text & "/uploadfoto/" & Path.GetFileName(nome.Text)
While Lst.SelectedItems.Count > 0
End While
Dim clsRequest As System.Net.FtpWebRequest = _
DirectCast(System.Net.WebRequest.Create(url), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential(user.Text, pass.Text)
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
clsRequest.Timeout = -1
' read in file...
Dim bFile
() As Byte = System.
IO.
File.
ReadAllBytes(nome.
Text)
' upload file...
Dim clsStream As System.IO.Stream = _
clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()
ProgressBar1.Value = 1000
timer.Stop()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
nome.Text = OpenFileDialog1.FileName()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'FolderOpen.InitialDirectory = "C:\Users\All User\Music"
FolderOpen.Multiselect = True
FolderOpen.Title = "Scegli i file da caricare in remoto !"
'FolderOpen.Filter = "Mpeg Audio Files| *.mp3"
' Make sure the User clicked OK and not Cancel
If (FolderOpen.ShowDialog() = Windows.Forms.DialogResult.OK) Then
' Make sure the User selected one or more files
If (FolderOpen.FileNames.Length > 0) Then
' Loop through the list of selected filenames and add each one to your listbox
For Each strFileName As String In FolderOpen.FileNames
Lst.Items.Add(strFileName)
Next
End If
End If
End Sub
Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer.Tick
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
End If
ProgressBar1.Value = ProgressBar1.Value + 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ProgressBar1.Maximum = 1000
ProgressBar1.Minimum = 0
ProgressBar1.Value = 0
End Sub
End Class
