控件怎么操作目录和文件夹？谢谢！

Dim openFolder As FolderDialog = New FolderDialog
        If openFolder.DisplayDialog = DialogResult.OK Then
            TextBox1.Text = openFolder.Path.ToString
        End If

Dim folderBrowserDialog As New FolderBrowserDialog
        If folderBrowserDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = folderBrowserDialog.SelectedPath
        End If