1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Try
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://xxxxxx" & picname), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("xxxxxx", "xxxxxx")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim File() As Byte = System.IO.File.ReadAllBytes(imgpath.Text)
Dim UpFile As System.IO.Stream = request.GetRequestStream()
UpFile.Write(File, 0, File.Length)
UpFile.Close()
UpFile.Dispose()
MessageBox.Show("File(s) uploaded successfully", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
If MessageBox.Show("Error Connecting To FTP," & vbNewLine & "Please try again", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) _
= Windows.Forms.DialogResult.Retry Then
Exit Sub
End If
End Try |
Partager