لا إله إلا الله .... سبحان الله وبحمده


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


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


17-07-2017, 04:54 AM
alaeer غير متصل
عضو جديد
رقم العضوية: 455057
تاريخ التسجيل: Mar 2014
المشاركات: 1
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #1  

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


ملفات فيجول بيسك 2010
اخواني الكرام هذه اول مشاركة ليا
انا اخوكم ضعيف في لغة البرمج ارجو منكم مساعدتي في كتابة الكود وطلبي هو
اريد كود ينقل ملف في البرنامج من مكان لاخر بأستخدام OpenFileDialog
نفرض ان ملف text اخترته باستخدام OpenFileDialog واريد نقله تلقائيا لي مجلد معين
فهل يوجد شئ زي كدا ارجو منكم مساعدتي ولكم جزيل الشكر....ملفات فيجول بيسك 2010ملفات فيجول بيسك 2010





المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
احتاج لبرنامج فيجول بيسك 6 عقيل الطحان برامج 2 27-02-2017 05:21 PM
طلب مساعدة في فيجول بيسك دوت نت 2013 gprd لغات البرمجة 1 23-04-2015 08:23 PM
عايز نسخه فيجول بيسك 6 أشرف بيبو برامج 9 23-03-2011 12:20 PM
سؤال كيفيه تحويل مشروع من برنامج فيجول بيسك 6 الى فيجول بيسك دوت نت kingchemical لغات البرمجة 2 12-10-2007 09:00 PM
كتب فيجول بيسك ofeq_net كتب تعليم البرامج والتقنية 6 06-03-2007 04:36 PM

18-07-2017, 01:00 AM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,654
إعجاب: 710
تلقى 2,047 إعجاب على 650 مشاركة
تلقى دعوات الى: 1917 موضوع
    #2  
اعمل فروم بهذا الشكل :



ثم انشأ متغيرات وضعهم أعلي الفورم :
 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
المشاركات: 74
إعجاب: 5
تلقى 7 إعجاب على 7 مشاركة
تلقى دعوات الى: 0 موضوع
    #3  
مميز

 


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

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, 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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.