27/09/2010, 11:40
|
| | Fecha de Ingreso: mayo-2004 Ubicación: Lima-Peru
Mensajes: 72
Antigüedad: 20 años, 5 meses Puntos: 0 | |
Respuesta: ¿Es posible? Recorrer nombre de archivos VB.Net Buen dato freegirl,
Completé con código adicional para buscar el directorio de manera dinámica utilizando el objeto FolderBrowserDialog
Código:
Imports System.IO
Public Class Form1
Private Sub btnExaminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExaminar.Click
Dim fd As New FolderBrowserDialog
With fd
.RootFolder = Environment.SpecialFolder.Desktop
.SelectedPath = "c:\"
.Description = "Seleccione el directorio"
If .ShowDialog = DialogResult.OK Then
Me.txtRuta.Text = .SelectedPath
End If
End With
End Sub
Private Sub cmbBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbBuscar.Click
Me.lstResultado.Items.Clear()
Try
For Each File As String In IO.Directory.GetFiles(Me.txtRuta.Text, Me.txtArchivo.Text, IO.SearchOption.AllDirectories)
'aquí pones el código necesario para ir llenando el listbox
Me.lstResultado.Items.Add(File.ToString)
Next
Catch ex As Exception
'pon código
End Try
End Sub
End Class
|