View difference between Paste ID: ccwgDfCy and JwhB0Lm4
SHOW: | | - or go back to the newest paste.
1
Dim filePath As String = lbl_file.Text
2
        Dim slashPosition As Integer = filePath.LastIndexOf("\")
3
        Dim filenameOnly As String = filePath.Substring(slashPosition + 1)
4
5
6-
        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://filefrontier.com/public_html/windows/" & filenameOnly), System.Net.FtpWebRequest)
6+
        Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://url.com/public_html/windows/" & filenameOnly), System.Net.FtpWebRequest)
7-
        request.Credentials = New System.Net.NetworkCredential("file", "password12")
7+
        request.Credentials = New System.Net.NetworkCredential("file", "password")
8
        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
9
        Dim path As String = lbl_file.Text
10
11
        Dim file() As Byte = System.IO.File.ReadAllBytes(path)
12
13
        Dim strz As System.IO.Stream = request.GetRequestStream()
14
15
16
17
        For offset As Integer = 0 To file.Length Step 1024
18
            lbl_progress.Text = offset.ToString() + " bytes sent"
19
            Dim chunkSize As Integer = file.Length - offset - 1
20
            If chunkSize > 1024 Then chunkSize = 1024
21
            strz.Write(file, offset, chunkSize)
22
        Next
23
        lbl_progress.Text = file.Length + " bytes sent"
24
25
        strz.Close()
26
        strz.Dispose()
27
28
        MsgBox(path)