Binaryworld - GetResourceContent - Retrieving the content of an embedded text file ... [ VB.net -> Files & Folder ]

' Retrieve the content of an embedded text file
' Note: the file must be included in the project as an embedded resource.
' - after adding the file to the project set its Build Action property to
' Embedded Resource
'
' Example: txtScript.Text = GetResourceContent("script.sql")

Function GetResourceContent(ByVal filename As String) As String
  ' get the current assembly
  Dim asm As System.Reflection.[Assembly] = _
    System.Reflection.[Assembly].GetExecutingAssembly()
  ' resources are named using a fully qualified name
  Dim strm As System.IO.Stream = asm.GetManifestResourceStream(asm.GetName() _
    .Name + "." + filename)
  ' read the contents of the embedded file
  Dim reader As New System.IO.StreamReader(strm)
  GetResourceContent = reader.ReadToEnd()
  reader.Close()
End Function