enlista los archivos de un unidad fija
Visual Basic para Aplicaciones
Publicado el 20 de Abril del 2017 por Wilmer
2.014 visualizaciones desde el 20 de Abril del 2017
enlista los archivos de un unidad fija
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuentaImports System.IOPublic 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.ExceptionEnd 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