Ez mit is csinál pontosan (VB. NET)?

Imports System.Reflection

Imports System.IO

Module Extract

Public Sub SaveToDisk(ByVal resourceName As String, ByVal fileName As String)

Dim assy As [Assembly] = [Assembly].GetExecutingAssembly()

For Each resource As String In assy.GetManifestResourceNames()

If resource.ToLower().IndexOf(resourceName.ToLower) <> -1 Then

Using resourceStream As System.IO.Stream = assy.GetManifestResourceStream(resource)

If resourceStream IsNot Nothing Then

Using reader As New BinaryReader(resourceStream)

Dim buffer() As Byte = reader.ReadBytes(CInt(resourceStream.Length))

Using outputStream As New FileStream(fileName, FileMode.Create)

Using writer As New BinaryWriter(outputStream)

writer.Write(buffer)

End Using

End Using

End Using

End If

End Using

Exit For

End If

Next resource

End Sub

End Module