Извлечение бинарного файла из приложения

[Klinifini]

Как получить доступ к файлу, прикрепленному к приложению?
Далаю так: Add->Add Existing Item , выбираю файл (data.bin). насколько я понимаю после компиляции он будет "зашит" в программу. А как его достать этой-же программой и сохранить в файл?

[ANDLL]

насколько я понимаю после компиляции он будет "зашит" в программу

Не будет. Посмотри, что стоит в свойствах этого файла на build action?
Что бы был зашит, его надо запихнуть в ресурсы.

[Klinifini]

Так, сделал. После компиляции размер приложения увеичился на размер файла (т.е. как я понял, он "вшился"). А как его теперь достать? Я хочу получить приложение типа: форма, на ней кнопка, по клику файл кидается на раб.стол. (ну или куда укажут). Помогите плз.

[ANDLL]

А где ты разместил файл?

[Klinifini]

Вроде докопался ка это сделать:

Код: Выделить всё

Public Class FileExtract
    Public Function GetFile(ByVal Name As String) As String
        Try
            Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
            Dim strm As System.IO.Stream = Asm.GetManifestResourceStream(Asm.GetName().Name + "." + Name)

            Dim reader As System.IO.StreamReader = New System.IO.StreamReader(strm)
            Return reader.ReadToEnd()

        Catch ex As Exception
            Throw ex
        End Try

    End Function
End Class

Build Action файла = "Embedded Resource".
Тока не могу догнать как записать в файл.. текстовые файлы норм, а бинарные бьет. Может как-то через StreamWriter ?

[Klinifini]

Все, довел до ума:

Код: Выделить всё

Public Class AssemblyFile
    Public bytes() As Byte

    Public Function ReadFile(ByVal Name As String) As Byte()
        Try
            Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
            Dim strm As System.IO.Stream = Asm.GetManifestResourceStream(Asm.GetName().Name + "." + Name)
            ReDim bytes(strm.Length - 1)
            strm.Read(bytes, 0, bytes.Length)
            strm.Close()
            Return bytes
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Sub Extract(ByVal Name As String, ByVal FilePath As String)
        Try
            Dim f As System.IO.FileStream = New System.IO.FileStream(FilePath, IO.FileMode.Create)
            ReadFile(Name)
            f.Write(bytes, 0, bytes.Length)
            f.Close()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class

[ANDLL]

Среди новичков на этом форуме умение думать самостоятельно, к сожалению, встречается редко, так что автору этого топика можно выразить Respect и пожелать дальнейших успехов на стезе программирования...