คำสั่งแสดง Drive และ Directory (VB.NET, Windows Form)

  Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim d As OpenFileDialog = New OpenFileDialog
        d.InitialDirectory = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
        d.ShowDialog
    End Sub
    
    Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim fbd As FolderBrowserDialog = New FolderBrowserDialog
        Dim result As DialogResult = fbd.ShowDialog
    End Sub