08-09-15, 07:21 PM
السلام عليكم
افادني هذا الكود في عمل برنامج بسيط لرفع ملفاتي للمساحة الخاصة بي
فاحببت مشاركته معكم للافادة
بالتوفيق !
افادني هذا الكود في عمل برنامج بسيط لرفع ملفاتي للمساحة الخاصة بي
فاحببت مشاركته معكم للافادة
كود :
Try
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.Domain/xx.txt"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("FTPUser", "FTPPassword%")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.IO.File.ReadAllBytes("c:\xx.txt")
Dim strz As System.IO.Stream = request.GetRequestStream()
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose()
MsgBox("File uploaded !!")
Catch ex As Exception
MsgBox(ex.Message)
End Tryبالتوفيق !