busco un ejemplo o solución viual studio form 2010

Question

Private Sub BtnMusica_Click(sender As Object, e As EventArgs) Handles BtnMusica.Click
        'Cambiar esta ruta por la correcta
        Dim ruta As String = "C:\Users\jose\Desktop\MUSICA"
        'Muestro el contenido de la carpeta "C:\Users\jose\Desktop\MUSICA" dentro de Listbox 1
        Me.ListBox1.Items.Clear()
        For Each archivo As String In Directory.GetFiles(ruta)
            Me.ListBox1.Items.Add(archivo)
        Next
        'Muestro el contenido  de los ficheros mp3 en la carpeta "C:\Users\jose\Desktop\MUSICA" dentro de Listbox 2
        Me.ListBox2.Items.Clear()
        For Each archivo As String In Directory.GetFiles(ruta, "*.mp3")
            Me.ListBox2.Items.Add(archivo)
        Next
    End Sub

    Private Sub BtnVideo_Click(sender As Object, e As EventArgs) Handles BtnVideo.Click
        'Cambiar esta ruta por la correcta
        Dim ruta As String = "C:\Users\jose\Desktop\VIDEO"
        'Muestro el contenido de la carpeta "C:\Users\jose\Desktop\VIDEO" dentro de Listbox 1
        Me.ListBox1.Items.Clear()
        For Each archivo As String In Directory.GetFiles(ruta)
            Me.ListBox1.Items.Add(archivo)
        Next
        'Muestro el contenido  de los ficheros mp4 en la carpeta "C:\Users\jose\Desktop\VIDEO" dentro de Listbox 2
        Me.ListBox2.Items.Clear()
        For Each archivo As String In Directory.GetFiles(ruta, "*.mp4")
            Me.ListBox2.Items.Add(archivo)
        Next
    End Sub

pero me da problema en 

Error 1  'Directory' no está declarado. Puede que esté inaccesible debido a su nivel de protección. C:\Users\Jhon Fonttz Equipo 1\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 10 39  WindowsApplication1

For Each archivo As String In Directory.GetFiles(ruta)
como lo declaro

---

jhon fonttz