none
busco un ejemplo o solución viual studio form 2010 RRS feed

  • Pregunta

  • 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

    domingo, 2 de septiembre de 2018 9:49

Respuestas

  • Pon al principio del fuente esta línea:

    Imports System.IO

    o bien, alternativamente, cambia la línea que da error y ponla así:

    For Each archivo As String In System.IO.Directory.GetFiles(ruta)

    • Marcado como respuesta Pablo Rubio lunes, 3 de septiembre de 2018 20:53
    domingo, 2 de septiembre de 2018 11:03