01.
Dim
request
As
FtpWebRequest =
DirectCast
(WebRequest.Create(
"ftp://amecdomain\\iswin:IS2013Dept@amecpoint/QA_Dept/e-Document/FILE_PhotoRecsys/golf.txt "
), FtpWebRequest)
02.
request.Credentials =
New
NetworkCredential(
"username"
,
"password"
)
03.
request.Method = WebRequestMethods.Ftp.UploadFile
04.
05.
Dim
File()
As
Byte
= System.IO.File.ReadAllBytes(
"Nand\\pic"
)
06.
07.
Dim
strz
As
System.IO.Stream = request.GetRequestStream()
08.
strz.Write(File, 0, File.Length)
09.
strz.Close()
10.
strz.Dispose()