السلام علكيم و رحمة الله و بركاته
عندي سؤال بخصوص نسخ ملف الى مجلد و اذا كان الملف موجود يتم نسخ و استبدال
و السؤال الثاني
استطيع دمج انشوده بالبرنامج و عند الضغط على بوتن يتم نسخ الانشوده الى مجلد و اذا كانت موجوده ينسخ و يستبدل
اتمنى واضحه الاسئله
السلام عليكم ورحمة الله وبركاتة
تستطيع عمل ذلك باكثر من دالة
الدالة الاولى
كود :
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
جزاك الله خير
باقي السؤال الثاني هل يمكن دمج الملف في البرنامج يعني اقصد ما ابغى المستخدم يشوف الملف اللي راح انسخه لمسار ثاني
اتمنى فهمتو قصدي
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
عند نسخ المجلد يتم نسخ محتوياته ايضآ وما اعتقد في طريقه تخفي عملية النسخ لان هذه تخص نظام التشغيل[/COLOR]
انا فاهم قصدك تريد دمج الملف داخل التنفيذى exe ده اسم ملفات الريسورس
باذن الله ساوضح لك الطريقه
لادراج الملف فى الريسورس
اتبع الخطواط
[ATTACH=CONFIG]3130[/ATTACH]
[ATTACH=CONFIG]3132[/ATTACH]
وضيف الملف مع مراعات اسم الملف يشترط نفس شروط تسمية المتغير
وعند استدعاء الملف يتم تجاهل امتداده مثلا
Test.gpj
Test.gif
البرنامج يعتبر ان الاثنين ملف واحد وهو
وهو Test
لاستدعاء صورة مثلا وعرضها داخل بكتشر بوكس
Me.PictureBox1.Image = My.Resources.cross_script_2
اسم البكتشر بوكس الذى تريد عرض الصورة فيه
خاصية الصورة
التوجه الى الريسور لجلب الصورة منه
اسم الصورة التى تريدها
انما لو ملف صوتى وحبيت تشغله
My.Computer.Audio.Play(My.Resources.ding, AudioPlayMode.Background)
ناتى لطلبك وهو كيفية استخراج ملف من الريسورس الى الجهاز فى مسار معين
كود :
[color=#008000]My.Computer.FileSystem.WriteAllBytes[/color]([color=#0000cd](Application.StartupPath & "\ddd.wav")[/color], [color=#b22222]My.Resources.ddd[/color], False)
دالة تحويل الملف من بايت الى ملف
الاسم والمسار الكامل الذى تريد الاستخراج اليه
الملف الذى تريد استخراجه من الريسورس
تسلم ما قصرت جزاك الله خير
عندي مشكله في الكود
كود :
[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
[/CODE]
المشكله هنا My.Resources.ddd
يجي تحته خط ازرق لا ادري ما السبب هل هناك خطا في الكود ؟