+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ ملف الى مجلد و استبداله اذا كان موجود (/showthread.php?tid=9381)
الصفحات:
1
2
نسخ ملف الى مجلد و استبداله اذا كان موجود - مدري - 22-06-13
السلام علكيم و رحمة الله و بركاته
عندي سؤال بخصوص نسخ ملف الى مجلد و اذا كان الملف موجود يتم نسخ و استبدال
و السؤال الثاني
استطيع دمج انشوده بالبرنامج و عند الضغط على بوتن يتم نسخ الانشوده الى مجلد و اذا كانت موجوده ينسخ و يستبدل
اتمنى واضحه الاسئله
نسخ ملف الى مجلد و استبداله اذا كان موجود - ali.alfoly - 22-06-13
السلام عليكم ورحمة الله وبركاتة
تستطيع عمل ذلك باكثر من دالة
الدالة الاولى
كود :
System.IO.File.Copy("C:\TEST.txt", "D:\Eyad.txt", True)كود :
My.Computer.FileSystem.CopyFile("C:\TEST.txt", "D:\Eyad.txt", True)كود :
FileSystem.FileCopy("C:\TEST.txt", "D:\Eyad.txt")بالنسبه للدالة الاولى والثانية كلمة True تعنى انه اذا وجد الملف سوف يستبدله اذا كنت تريده الا يستبدله اجعلها False
نسخ ملف الى مجلد و استبداله اذا كان موجود - مدري - 22-06-13
جزاك الله خير
باقي السؤال الثاني هل يمكن دمج الملف في البرنامج يعني اقصد ما ابغى المستخدم يشوف الملف اللي راح انسخه لمسار ثاني
اتمنى فهمتو قصدي
نسخ ملف الى مجلد و استبداله اذا كان موجود - 3booody - 22-06-13
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
عند نسخ المجلد يتم نسخ محتوياته ايضآ وما اعتقد في طريقه تخفي عملية النسخ لان هذه تخص نظام التشغيل[/COLOR]
نسخ ملف الى مجلد و استبداله اذا كان موجود - ali.alfoly - 22-06-13
انا فاهم قصدك تريد دمج الملف داخل التنفيذى exe ده اسم ملفات الريسورس
باذن الله ساوضح لك الطريقه
نسخ ملف الى مجلد و استبداله اذا كان موجود - ali.alfoly - 22-06-13
لادراج الملف فى الريسورس
اتبع الخطواط
[ATTACH=CONFIG]3130[/ATTACH]
[ATTACH=CONFIG]3132[/ATTACH]
وضيف الملف مع مراعات اسم الملف يشترط نفس شروط تسمية المتغير
وعند استدعاء الملف يتم تجاهل امتداده مثلا
Test.gpj
Test.gif
البرنامج يعتبر ان الاثنين ملف واحد وهو
وهو Test
نسخ ملف الى مجلد و استبداله اذا كان موجود - ali.alfoly - 22-06-13
لاستدعاء صورة مثلا وعرضها داخل بكتشر بوكس
Me.PictureBox1.Image = My.Resources.cross_script_2
اسم البكتشر بوكس الذى تريد عرض الصورة فيه
خاصية الصورة
التوجه الى الريسور لجلب الصورة منه
اسم الصورة التى تريدها
نسخ ملف الى مجلد و استبداله اذا كان موجود - ali.alfoly - 22-06-13
انما لو ملف صوتى وحبيت تشغله
My.Computer.Audio.Play(My.Resources.ding, AudioPlayMode.Background)
نسخ ملف الى مجلد و استبداله اذا كان موجود - ali.alfoly - 22-06-13
ناتى لطلبك وهو كيفية استخراج ملف من الريسورس الى الجهاز فى مسار معين
كود :
[color=#008000]My.Computer.FileSystem.WriteAllBytes[/color]([color=#0000cd](Application.StartupPath & "\ddd.wav")[/color], [color=#b22222]My.Resources.ddd[/color], False)دالة تحويل الملف من بايت الى ملف
الاسم والمسار الكامل الذى تريد الاستخراج اليه
الملف الذى تريد استخراجه من الريسورس
نسخ ملف الى مجلد و استبداله اذا كان موجود - مدري - 24-06-13
تسلم ما قصرت جزاك الله خير
عندي مشكله في الكود
كود :
[CODE]
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.FileSystem.WriteAllBytes((Application.StartupPath & "\ddd.txt"), My.Resources.ddd, False)
End Subالمشكله هنا My.Resources.ddd
يجي تحته خط ازرق لا ادري ما السبب هل هناك خطا في الكود ؟