Código de Visual Basic para Aplicaciones - enlista los archivos de un unidad fija

<<>>
Imágen de perfil

enlista los archivos de un unidad fijagráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 20 de Abril del 2017 por wilmer
196 visualizaciones desde el 20 de Abril del 2017
enlista los archivos de un unidad fija

Requerimientos

4 label
2 listbox
2 comandos
2 textBox

1

Publicado el 20 de Abril del 2017gráfica de visualizaciones de la versión: 1
196 visualizaciones desde el 20 de Abril del 2017
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Text = "*"
    End Sub
    Public contador, directorio(50000), contador1 As String
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Label3.Text = "Directorios encontrados: "
        Label4.Text = "Archivos encontrados: "
        contador = "1"
        Dim unidad As String
        unidad = UCase(TextBox1.Text & ":\")
        DirSearch(unidad)
    End Sub
 
    Sub DirSearch(ByVal sDir As String)
        Dim d As String
        Try
            For Each d In Directory.GetDirectories(sDir)
                directorio(CInt(contador)) = d
                ListBox1.Items.Add(d)
                Label3.Text = "Directorios encontrados : " & contador
                contador = CInt(contador) + 1
 
                DirSearch(d)
            Next
 
        Catch excpt As System.Exception
 
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Clear()
        Dim k As Integer
        Dim extension As String
        extension = "*." & TextBox2.Text
        contador1 = "1"
 
        For k = 1 To CInt(contador) - 1
            Try
                ':::Realizamos la búsqueda de la ruta de cada archivo de texto y los agregamos al ListBox
                For Each archivos As String In My.Computer.FileSystem.GetFiles(directorio(k),
                FileIO.SearchOption.SearchAllSubDirectories, extension)
                    ListBox2.Items.Add(archivos)
                    Label4.Text = "Directorios encontrados : " & contador1
                    contador1 = CInt(contador1) + 1
 
                Next
 
 
            Catch ex As Exception
 
            End Try
        Next
 
    End Sub
 
End Class



Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3951