Copy File จาก Window Mobile ผ่าน Wireless ไป Server โดยต้องการกำหนด Authenticated Code

        lblerror.Text = ""
        Dim tcpserver As New TcpClient
        Dim IP As String = Lblip.Text
        Dim Port As Int32 = "8080"
        Dim IPServer As IPAddress = IPAddress.Parse(IP)
        Dim MovePath As New DirectoryInfo("\Barcode\Backup")
        Dim DestinationURL As String = Lblurl.Text
        Try
            tcpserver.Connect(IP, Port)
            lblerror.Visible = True
            lblerror.Text = "Pink is OK"
            If lblerror.Text = "Pink is OK" Then
                File.Copy("\Test\list.txt", DestinationURL & Now.ToString().Replace("/", "-").Replace(":", ".") & ".txt")
                File.Copy(\"Test\list.txt", "\Test\Backup\list" & Now.ToString().Replace("/", "-").Replace(":", ".") & ".txt")
                If Not MovePath.Exists Then
                    MovePath.Create()
                    File.Copy("\Test\list.txt", "\Test\Backup\list" & Now.ToString().Replace("/", "-").Replace(":", ".") & ".txt")
                    Cleardata()
                    MessageBox.Show("Upload Complete")
                Else
                    File.Copy("\Test\List\list.txt", "\Test\Backup\test" & Now.ToString().Replace("/", "-").Replace(":", ".") & ".txt")
                    Cleardata()
                    MessageBox.Show("Upload Complete")
                End If
                                         End If
        Catch ex As Exception
            lblerror.Visible = True
            lblerror.Text = "Ping not OK"
            MessageBox.Show(ex.Message)
        End Try