폴더 이름 가져오기 path,folder

VNote 2017.11.08 13:51:50 *: Imports System.IO.Path

Public Class Form1

Private Sub TextBox1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
TextBox1.Text$ = FolderBrowserDialog1.SelectedPath.ToString

End If
Dim fi As New IO.DirectoryInfo(TextBox1.Text)
Label1.Text = fi.Name

End Sub
End Class