منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] رفع صورة لاستضافة أون لاين .أغلب الأكواد لا تعمل لنفس السبب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] رفع صورة لاستضافة أون لاين .أغلب الأكواد لا تعمل لنفس السبب (/showthread.php?tid=48460)

رفع صورة لاستضافة أون لاين .أغلب الأكواد لا تعمل لنفس السبب - dr.programming - 08-05-24

السلام عليكم 
أحاول رفع صورة من جهازى الى استضافة أون لاين
استخدمت الكود التالى :
كود :
       My.Computer.Network.UploadFile("77.jpg", "ftp://--- Domain Nmae --/77.jpg", "User", "Password", True, 48000)
 للأسف لم يصلح
فاستخدمت الكود التالى :
كود :
    Try
           Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://--- Domain Nmae --/77.jpg"), System.Net.FtpWebRequest)
           request.Credentials = New System.Net.NetworkCredential("User", "Password")
           request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
           Dim file() As Byte = System.IO.File.ReadAllBytes("D:\77.jpg")
           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
 للأسف لم يصلح أيضا !!
 ... 
فى كل مرة يعطينى نفس رسالة الخطأ و هى :


أرجو الافادة و االمساعدة .. تقبلوا خالص التحية

RE: رفع صورة لاستضافة أون لاين .أغلب الأكواد لا تعمل لنفس السبب - dr.programming - 08-05-24

كود :
My.Computer.Network.UploadFile("C:\folder\77.jpg", "ftp://files.********/77.jpg", "User", "Password", True, 48000)
تم بالفعل و بنجاح ..