VB.NET
* Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim fullPath As String = Application.StartupPath ' 실행경로
Dim fi As New IO.DirectoryInfo(fullPath) '실행폴더이름 fi.name
Dim nameTempLength As Integer = fi.Name.Length + 1 ' \ 제거를 위해 +1추가
Dim fullPathLength As Integer = fullPath.Length
Dim upFolder As String = Mid(fullPath, 1, fullPathLength - nameTempLength)
MsgBox(upFolder)
End Sub 

폴더 경로 구하고 문자열 자르기