[مدري]

السلام علكيم و رحمة الله و بركاته
عندي سؤال بخصوص نسخ ملف الى مجلد و اذا كان الملف موجود يتم نسخ و استبدال
و السؤال الثاني
استطيع دمج انشوده بالبرنامج و عند الضغط على بوتن يتم نسخ الانشوده الى مجلد و اذا كانت موجوده ينسخ و يستبدل

اتمنى واضحه الاسئله

[ali.alfoly]

السلام عليكم ورحمة الله وبركاتة
تستطيع عمل ذلك باكثر من دالة
الدالة الاولى

كود :

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

[مدري]

جزاك الله خير
باقي السؤال الثاني هل يمكن دمج الملف في البرنامج يعني اقصد ما ابغى المستخدم يشوف الملف اللي راح انسخه لمسار ثاني
اتمنى فهمتو قصدي

[3booody]

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
عند نسخ المجلد يتم نسخ محتوياته ايضآ وما اعتقد في طريقه تخفي عملية النسخ لان هذه تخص نظام التشغيل[/COLOR]

[ali.alfoly]

انا فاهم قصدك تريد دمج الملف داخل التنفيذى exe ده اسم ملفات الريسورس
باذن الله ساوضح لك الطريقه

[ali.alfoly]

لادراج الملف فى الريسورس
اتبع الخطواط


[ATTACH=CONFIG]3130[/ATTACH]


[ATTACH=CONFIG]3132[/ATTACH]

وضيف الملف مع مراعات اسم الملف يشترط نفس شروط تسمية المتغير
وعند استدعاء الملف يتم تجاهل امتداده مثلا
Test.gpj
Test.gif
البرنامج يعتبر ان الاثنين ملف واحد وهو
وهو Test

[ali.alfoly]

لاستدعاء صورة مثلا وعرضها داخل بكتشر بوكس
Me.PictureBox1.Image = My.Resources.cross_script_2
اسم البكتشر بوكس الذى تريد عرض الصورة فيه
خاصية الصورة
التوجه الى الريسور لجلب الصورة منه
اسم الصورة التى تريدها

[ali.alfoly]

انما لو ملف صوتى وحبيت تشغله
My.Computer.Audio.Play(My.Resources.ding, AudioPlayMode.Background)

[ali.alfoly]

ناتى لطلبك وهو كيفية استخراج ملف من الريسورس الى الجهاز فى مسار معين

كود :

[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
يجي تحته خط ازرق لا ادري ما السبب هل هناك خطا في الكود ؟