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


الملفات المرفقة
.rar   WindowsApplication6.rar (الحجم : 41.07 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة:
#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
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 16)
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}}
تم الشكر بواسطة: أبو عمر
#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
اكتب لما مسار الملف طيب
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#10
(22-09-16, 06:35 AM)أبو عمر كتب : اكتب لما مسار الملف  طيب

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 30 21-09-17, 06:34 PM
آخر رد: D-Z
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 80 20-09-17, 04:00 PM
آخر رد: alsouf
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 34 19-09-17, 03:33 PM
آخر رد: أبو نوره
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 805 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 115 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 125 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 522 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 195 15-09-17, 04:38 PM
آخر رد: 0theghost0
  سرعة الانترنت عبدالرحمن المكاوي 0 42 12-09-17, 01:40 AM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 53 11-09-17, 12:58 PM
آخر رد: 0theghost0

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


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