تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل الكود لرفع ملف على الانترنت
#1
بسم الله الرحمان الرحيم
ارجو مساعد
تي في هذا الكود لرفع الملفات الى الاستضافة حيث وجدت الكود بالمنتدى وهذا رابطه الى انةلا يعمل معي


الملفات المرفقة
.rar   WindowsApplication6.rar (الحجم : 41.07 ك ب / التحميلات : 35)
الرد
تم الشكر بواسطة:
#2
كود :
My.Computer.Network.UploadFile("مسار الملف كامل", "عنوان السيرفر مع اسم الملف فقط", اسم المستخدام"كلمة المرور")
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: أبو عمر
#3
ربما للتوضيح اكثر
PHP كود :
My.Computer.Network.UploadFile("D:\php.txt""ftp://your-domain-name/wwwroot/your-folder/php.text""FTP-user-name""FTP-password"True48000
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: alims
#4
(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"True48000
بالتوفيق
شكرا لكم
لكن لوتكرمتم بالتعديل على الكود ووضعه هنا لاني لم افلح في التعديل عليه وليستفيد الجميع
وشكرا لكم
الرد
تم الشكر بواسطة:
#5
السلام عليكم اخى 
الاول اشكر اخى أبو عمر
يوجد فى المرفقات المشروع يعمل 
و هذ الكود المستخدام فى العمل  Cool

كود :
  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


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 68.5 ك ب / التحميلات : 31)
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد
تم الشكر بواسطة: أبو عمر
#6
(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
الكود يعمل بامتياز لكن تعديل طفيف لو سمحت وهو  الملف المراد تحميله ثابت بالجهاز اي تعين مكان الملف برمجيا لتتم عملية التحميل مباشرتا بهد الظغط على الزر من دون ان تفتح وتذهب تختار انت الملف
وشكرا لك على المساعدة
الرد
تم الشكر بواسطة:
#7
ارجو الافادة اخوتي
الرد
تم الشكر بواسطة:
#8
هل من مجيب
الرد
تم الشكر بواسطة:
#9
اكتب لما مسار الملف طيب
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#10
(22-09-16, 06:35 AM)أبو عمر كتب : اكتب لما مسار الملف  طيب

E:\Folder1\dsf.txt Big Grin Big Grin
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل بسيط في كود بحث trakktour 1 14 منذ 39 دقيقة مضت
آخر رد: elgokr
  [VB.NET] تعديل بسيط في الكود :) مجهول 5 139 منذ 2 ساعة مضت
آخر رد: elgokr
Photo اين الخطأ في الكود لو سمحتم samira20 6 137 01-12-18, 01:55 PM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 0 48 30-11-18, 11:08 AM
آخر رد: samira20
  [سؤال] ما الخطأ في الكود التالي اسامه الهرماوي 2 87 23-11-18, 05:52 PM
آخر رد: Rabeea Qbaha
  حل مشكلة هذا الكود imam_boune 2 81 23-11-18, 02:13 PM
آخر رد: imam_boune
  [سؤال] ما الخطأ في هذا الكود اسامه الهرماوي 3 103 21-11-18, 02:05 AM
آخر رد: اسامه الهرماوي
  محتاج مساعدة فى تعديل كود بسيط Mohamed Magdy 5 100 17-11-18, 04:30 AM
آخر رد: elgokr
  [VB.NET] المساعدة في تعديل كود farfour 1 56 15-11-18, 06:18 PM
آخر رد: elgokr
  تعديل التاريخ من اليمين لليسار في الكريستال ريبورت جيولوجي مبتدئ 1 72 13-11-18, 01:05 AM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم