一、新建类

Imports System.IO
Imports System.Reflection

Public Class ClsRunlic
    Public strLocation As String = Assembly.GetExecutingAssembly().Location
    ''' <summary>
    ''' 当前DDL运行路径
    ''' </summary>
    ''' <returns></returns>
    Public Function GetDirectoryName（） As String
        Return Path.GetDirectoryName(strLocation)
    End Function
    ''' <summary>
    ''' 当前DDL名称
    ''' </summary>
    ''' <returns></returns>
    Public Function GetFileName（） As String
        Return Path.GetFileName(strLocation)
    End Function
End Class

二、使用

  Dim csClsRunlic As New ClsRunlic
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Debug.Print(csClsRunlic.GetDirectoryName)
        Debug.Print(csClsRunlic.GetFileName)
    End Sub