폴더 이름 가져오기 path,folder
*
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
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
이 게시물을
번호
제목
217
213
211
207
202
201
200
198