buscador de todo tipo de archivoCerrado

Question

Hola, necesito que me ayuden a Elaborar un programa tipo explorador de windows que permita abrir o visualizar distintos tipos de archivos.


Configuraci&oacute;n: Windows 7 / Internet Explorer 8.0

tuno · Answer

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

Buscador de todo tipo de archivo

1 respuesta

Discusiones similares

¡Suscríbete a nuestra Newsletter!