تقييم الموضوع :
  • 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 ك ب / التحميلات : 34)
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: أبو عمر
#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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 130 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002

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


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