添加控件:FolderBrowserDialog,label,button
代码:
- PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
- IfFolderBrowserDialog1.ShowDialog=Windows.Forms.DialogResult.OKThen
- Label1.Text=FolderBrowserDialog1.SelectedPath
- EndIf
- EndSub