FTP 파일전송

        'Create Request To Upload File'

        Dim wrUpload As FtpWebRequest = DirectCast(WebRequest.Create _

           ("ftp://ftp.test.com/file.txt"), FtpWebRequest)

        'Specify Username & Password'

        wrUpload.Credentials = New NetworkCredential("user", "password")

        'Start Upload Process'

        wrUpload.Method = WebRequestMethods.Ftp.UploadFile

        'Locate File And Store It In Byte Array'

        Dim btfile() As Byte = File.ReadAllBytes("c:\file.txt")

        'Get File'

        Dim strFile As Stream = wrUpload.GetRequestStream()

        'Upload Each Byte'

        strFile.Write(btfile, 0, btfile.Length)

        'Close'

        strFile.Close()

        'Free Memory'

        strFile.Dispose()