العودة   منتديات داماس > منتدى البرمجة العام > لغات البرمجة

إضافة رد
17-07-2017, 04:54 AM
alaeer
عضو جديد
رقم العضوية: 455057
تاريخ التسجيل: Mar 2014
المشاركات: 2
تلقى دعوات الى: 0 موضوع
إعجاب: 0
Thanked 1 Time in 1 Post
 
السلام عليكم
اخواني الكرام هذه اول مشاركة ليا
انا اخوكم ضعيف في لغة البرمج ارجو منكم مساعدتي في كتابة الكود وطلبي هو
اريد كود ينقل ملف في البرنامج من مكان لاخر بأستخدام OpenFileDialog
نفرض ان ملف text اخترته باستخدام OpenFileDialog واريد نقله تلقائيا لي مجلد معين
فهل يوجد شئ زي كدا ارجو منكم مساعدتي ولكم جزيل الشكر....طلب كود نقل ملفات فيجول بيسك 2010طلب كود نقل ملفات فيجول بيسك 2010




18-07-2017, 01:00 AM
Abufahmi
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 3,033
تلقى دعوات الى: 2857 موضوع
إعجاب: 981
تلقى 2,502 إعجاب على 822 مشاركة
 
اعمل فروم بهذا الشكل :



ثم انشأ متغيرات وضعهم أعلي الفورم :
 Dim OldPath As String String.Empty
    
Dim NewPath As String String.Empty
    
Dim Extension As String String.Empty 
ومن الأدوات ضع :
- OpenFileDialog1
- SaveFileDialog1


بحدث زر تحديد الملف الذي تود نقله(BuBrowse) :
 OpenFileDialog1.Filter "All Files | *.*; "
        
OpenFileDialog1.Title "حدد الملف الذي تود نقله"
        
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            OldPath 
OpenFileDialog1.FileName
            Extension 
Path.GetExtension(OldPath)
            
TxBrowse.Text OldPath
        End 
If 
ثم بحدث زر نقل الملفات :
  If Not TxBrowse.Text String.Empty Then
            SaveFileDialog1
.Title "حفظ الملف"
            
SaveFileDialog1.Filter "All Files | *" Extension "; "
            
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
                NewPath 
SaveFileDialog1.FileName
                
If OldPath IsNot String.Empty And NewPath IsNot String.Empty Then
                    
If Not File.Exists(NewPathThen
                        File
.Move(OldPathNewPath)
                        
MessageBox.Show("تم نقل الملف للمسار المحدد بنجاح""نجاح العملية"MessageBoxButtons.OKMessageBoxIcon.Information)
                        
Process.Start("explorer.exe"Path.GetDirectoryName(NewPath))
                        
TxBrowse.Clear()
                    
End If
                
End If
            
End If
        Else
            
MessageBox.Show("أنت لم تحدد الملف الذي تريد نقله""تنبيه"MessageBoxButtons.OKMessageBoxIcon.Exclamation)
        
End If 

المشروع بالمرفقات

موفق ان شاء الله

19-07-2017, 01:11 AM
عماد سعيد السيد
عضو فعال
رقم العضوية: 967373
تاريخ التسجيل: Jun 2017
المشاركات: 178
تلقى دعوات الى: 0 موضوع
إعجاب: 52
تلقى 16 إعجاب على 15 مشاركة
 
مميز

31-07-2017, 01:57 PM
alaeer
عضو جديد
رقم العضوية: 455057
تاريخ التسجيل: Mar 2014
المشاركات: 2
تلقى دعوات الى: 0 موضوع
إعجاب: 0
Thanked 1 Time in 1 Post
 
اقسم بالله صرلي شهوووور عم دور على هذا الكود وانا اول مره اضع موضوع في منتديات
بارك الله فيك وربي يرحم ولديك abufahmi


طلب كود نقل ملفات فيجول بيسك 2010



Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.