[vbnet]

-
إذا كنت تريد تحديد مكان الحفظ عن طريق مربع حوار هذا مثال على السريع...

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إنشاء مربع حوار
    Dim sv As New SaveFileDialog

    ' نحدد له الأنواع التي عليه استعراضها
    sv.Filter = "Programs (*.exe)|*.exe"

    ' نحدد له اسم ملف مبدئي الى حين تغييره
    sv.FileName = "program.exe"

    ' هنا هل تم الضغط على موافق في مربع الحوار
    If sv.ShowDialog = Windows.Forms.DialogResult.OK Then

        ' يقوم بحقظ العنصر من الريسورس في اسم الملف الذي تم اختياره مع المسار
        IO.File.WriteAllBytes(sv.FileName, My.Resources.program)

    End If

End Sub