• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Tim§id€

Procurar qualquer tipo de ficheiro?

3 mensagens neste tópico

Boas malta.... :thumbsup:

Gostaria que me dessem uma ajuda!= algum sabe se existe no VB algum comando para poder tipo numa inputbox o utilizador introduza a extensão tipo *.MP3 ou *.WMA....e depois vai procurar no Computador todos os ficheiros com essa extensão?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Podes fazer algo do género:

    Sub ListFiles(ByVal strRootPath As String, ByVal filePattern As String)
        Try

            Dim FullDir() As String = IO.Directory.GetDirectories(strRootPath)
            For Each Dir As String In FullDir

                Try
                    Dim FullFiles() As String = IO.Directory.GetFiles(Dir, filePattern, IO.SearchOption.AllDirectories)
                    For Each File As String In FullFiles

                        Try

                            ' Mostra qual é o ficheiro
                            Debug.WriteLine(File)

                        Catch ex As Exception
                        End Try
                    Next

                Catch ex As Exception
                End Try
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call ListFiles("d:\", "*.mp3")
        ' Se quiseres procurar por mais ficheiros é só copiar
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Podes fazer algo do género:

    Sub ListFiles(ByVal strRootPath As String, ByVal filePattern As String)
        Try

            Dim FullDir() As String = IO.Directory.GetDirectories(strRootPath)
            For Each Dir As String In FullDir

                Try
                    Dim FullFiles() As String = IO.Directory.GetFiles(Dir, filePattern, IO.SearchOption.AllDirectories)
                    For Each File As String In FullFiles

                        Try

                            ' Mostra qual é o ficheiro
                            Debug.WriteLine(File)

                        Catch ex As Exception
                        End Try
                    Next

                Catch ex As Exception
                End Try
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call ListFiles("d:\", "*.mp3")
        ' Se quiseres procurar por mais ficheiros é só copiar
    End Sub

Obrigado pela ajuda...vou ver se consigo...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora