On number one i can help you out
BROWSE BUTTON - To Search for the new picture to upload
OpenFileDialog1.Title = "Open File"
OpenFileDialog1.FileName = String.Empty
Try
OpenFileDialog1.InitialDirectory = "C:\"
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Error")
End Try
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = String.Empty Then
Return
Else
txtFileName.Text = OpenFileDialog1.FileName
End If
Dim filePath As String = txtFileName.Text
Dim fnPeices() As String = filePath.Split("\")
Dim fileName As String = ""
fileName = fnPeices(fnPeices.Length - 1)
TextBox1.Text = fileName UPLOAD BUTTON
My.Computer.Network.UploadFile(txtFileName.Text, My.Settings.rutaido & TextBox1.Text, "", "", True, 500)
My.Settings.rutaido contains the path where i want to save the file, Ex. "C:\Temp\" and Textbox1.Text is the name of the new file that is going to be uploaded
txtFileName.txt, is the full path and file from where the file that you want to is allocated.
the final value in "True" and "500" is for the transfer screen, setting the value to True will show the screen saying that you uploading the file, and the 500 is for the progress update bar refresh rate
the two fields in the between TextBox1.Text & True are the user name and password if needed, Ex.
My.Computer.Network.UploadFile(txtFileName.Text, My.Settings.rutaido & TextBox1.Text, "admin", "123456", True, 500)
Maybe that can help you for now