منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ربما للتوضيح اكثر
بالتوفيق

(17-09-16, 07:29 AM)أبو عمر كتب : [ -> ]ربما للتوضيح اكثر

PHP كود :

       My.Computer.Network.UploadFile("D:\php.txt", "ftp://your-domain-name/wwwroot/your-folder/php.text", "FTP-user-name", "FTP-password", True, 48000) 


بالتوفيق

شكرا لكم
لكن لوتكرمتم بالتعديل على الكود ووضعه هنا لاني لم افلح في التعديل عليه وليستفيد الجميع
وشكرا لكم

السلام عليكم اخى 
الاول اشكر اخى أبو عمر
يوجد فى المرفقات المشروع يعمل 
و هذ الكود المستخدام فى العمل 

(17-09-16, 07:59 PM)alims كتب : [ -> ]

كود :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       OpenFileDialog1.ShowDialog()
       Label2.Text = ""
       Label4.Text = ""
       Label6.Text = ""
       Label2.Text = OpenFileDialog1.FileName.ToString
       Label4.Text = OpenFileDialog1.SafeFileName.ToString
       Dim f As System.IO.FileInfo = New System.IO.FileInfo(Label2.Text)
       Label6.Text = f.Length.ToString
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       My.Computer.Network.UploadFile(Label2.Text, "FTP://اسم السيرفر/" + Label4.Text, "اسم المستخدام", "كلمة المرور", True, 48000)
   End Sub

شكرا لك اخي alims
الكود يعمل بامتياز لكن تعديل طفيف لو سمحت وهو  الملف المراد تحميله ثابت بالجهاز اي تعين مكان الملف برمجيا لتتم عملية التحميل مباشرتا بهد الظغط على الزر من دون ان تفتح وتذهب تختار انت الملف
وشكرا لك على المساعدة

ارجو الافادة اخوتي

هل من مجيب

اكتب لما مسار الملف طيب

(22-09-16, 06:35 AM)أبو عمر كتب : [ -> ]اكتب لما مسار الملف  طيب

E:\Folder1\dsf.txt