Buscador de todo tipo de archivo

[Cerrado]
Denunciar
-
 tuno -
Hola, necesito que me ayuden a Elaborar un programa tipo explorador de windows que permita abrir o visualizar distintos tipos de archivos.


1 respuesta

hola que tqal un buscador
lo he construido pero falta algunos detalles ustedes lo agregaran
nescitas los siguientes
1.- ListView1
2,.dos textbox
3.-dos CheckBox
3.-tres botones
alguna duda: filvovmax@hotmail.es
creo les sirvira mucho

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
TextBox1.Visible = True
Button2.Visible = True


End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim abrir As New FolderBrowserDialog
abrir.Description = "Selccione donde va buscar el archivo"
abrir.ShowDialog(Me)
ListView1.Items.Clear()
TextBox2.Text = abrir.SelectedPath

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim buscasf As String = ""
Dim buscar As String = (TextBox1.Text)
ListView1.Items.Clear()
For Each buscar In My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories, TextBox1.Text)

Timer1.Start()
Label4.Text = buscar
ListView1.Items.Add(buscar)
Next

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Button1.Visible = CheckBox1.Checked
TextBox1.Visible = False
Button2.Visible = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For Each buscar As String In My.Computer.FileSystem.GetFiles(TextBox2.Text, _
FileIO.SearchOption.SearchAllSubDirectories, "*.*")
Timer1.Start()

Label4.Text = buscar
ListView1.Items.Add(buscar)

Next
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Increment(ProgressBar1.Step)
Else
ProgressBar1.Style = ProgressBarStyle.Marquee
'Timer1.Dispose()
'ProgressBar1.Value = ProgressBar1.Minimum

End If
End Sub

Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
ay algun problema no ingresa a a la carpeta volume system informatio