[HALIM ELEULMA]

(18-03-20, 10:13 PM)smai كتب : لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة

---

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

يرجى استبدال "اسم_الملف_في_المورد" بالاسم الصحيح الذي قمت بإعطائه للملف في المورّد. هذا الكود يستخدم مكتبة

كود :

System.IO

للتعامل مع ملفات النظام ويحفظ الملف على سطح المكتب.

PHP كود :

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' احلل الملف من المورد واحفظه على سطح المكتب
        Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim filePath As String = Path.Combine(desktopPath, "اسم_الملف.txt")

        ' اسم الملف الذي أضفته في المورّد
        Dim resourceName As String = "اسم_الملف_في_المورد"

        ' افحص إذا كان الملف موجوداً على سطح المكتب مسبقاً
        If Not File.Exists(filePath) Then
            ' انسخ الملف من المورد إلى سطح المكتب
            Using resource = New StreamReader(My.Resources.ResourceManager.GetStream(resourceName))
                Using file = New StreamWriter(filePath)
                    file.Write(resource.ReadToEnd())
                End Using
            End Using

            MessageBox.Show("تم حفظ الملف على سطح المكتب بنجاح!", "نجاح")
        Else
            MessageBox.Show("الملف موجود بالفعل على سطح المكتب.", "تنبيه")
        End If
    End Sub
End Class