Option Strict On
Imports System.IO
Imports System.Reflection
Public Module Reflection
Public Sub Main
Const path As String = "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\mscorlib.dll"
If File.Exists(path) Then
Dim ass As Assembly = Assembly.LoadFrom(path)
Dim typ As Type = ass.GetType("System.Array")
Dim members As MemberInfo() = typ.GetMembers(BindingFlags.Instance _
Or BindingFlags.Public)
Console.WriteLine(members.Length)
End If
End Sub
End Module
|