سلام
کد به اینکه فایل چه فرمتی دارد و چه استفاده ای از آن میشود، فرق میکند.
مثلاً برای تصاویر و متون و html و صوت و... راه های ساده ای برای استفاده وجود دارد.
ولی شما نوع فایل را مشخص نکردید...
من فقط میتوانم کد کلی زیر را برایتان بگذارم
پس از طی کردن مراحل 1 و 2 در پست قبلیم، با کد زیر میتوانید فایل Embedded شده را با هر حجمی که باشد در مسیر واقعی هارد Extract کنید.
البته راه میانبر دیگری هم دارد ولی راه فوق مطمئن و قطعی است.
Public Shared Sub Copy(ByVal Source_EmbeddedName As String, ByVal Destin_FilePath As String)
Const BUFFERSIZE As Integer = 16 * 1024
Dim buffer(BUFFERSIZE - 1) As Byte
Dim iRead As Integer
Using _
source As System.IO.Stream = System.Reflection.Assembly.GetExecutingAssembly.Ge tManifestResourceStream(Source_EmbeddedName), _
destin As New System.IO.FileStream(Destin_FilePath, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
Do
iRead = source.Read(buffer, 0, BUFFERSIZE)
If (iRead <= 0) Then Return
destin.Write(buffer, 0, iRead)
Loop
End Using
End Sub
با این کد هم قابل فراخوانی و استفاده است
Copy("Projectname.Filename.Extension", "C:\Filename.Extension")
موفق باشید.