' 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

