Embedding source code in a source program II
#If TARGET = "winexe" Then #If CONFIG = "Resource" AndAlso PLATFORM = "x64" Then Imports System.IO Imports System.Windows.Forms Imports System.Runtime.InteropServices Imports System.Text Imports Shell32 Partial Public Class Find_Files_Class Private Sub MyEmbedProc(Folder_item As FolderItem) Chen.MyCode.EmbedCode(Folder_item, _FileNameToBeFound) End Sub End Class Namespace Chen Module MyCode Const RelativePath_DLL As String = "\My_Cpp_Resource2\x64\Debug" Sub Initialize() Dim ModuleFilename As New StringBuilder(1000) GetModuleFileName(Null, ModuleFilename, 1000) Dim MyDllDirectory As New DirectoryInfo( IO.Path.GetDirectoryName( IO...