1.Create Windows From App
2.Add TextBox And Button Double Click Button Insert Code
3.Insert namespace
Imports System.IO
Imports System.Data
Imports System.Windows.Forms
Dim FolderBrowser As New FolderBrowserDialog
If FolderBrowser.ShowDialog = DialogResult.OK Then
txtFileDir.Text = FolderBrowser.SelectedPath
Dim root As Environment.SpecialFolder = Environment.SpecialFolder.MyComputer
End If
ไม่มีความคิดเห็น:
แสดงความคิดเห็น