Jump to content
Andrepereira9

[Resolvido] Função Listar Ficheiros

Recommended Posts

Andrepereira9

boa noite a todos

A seguinte função pode ser considerada como virus??

É que o  meu anti-virus, sempre que executo esta função, detecta como virus  :thumbsup:

    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


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

Se estiver a pesquisar nos ficheiros do sistema o antivírus pode bloquear a acção, considerando a função como vírus.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Andrepereira9

testei a procurar nas pasta dos Programas, nos documentos e num disco que tenho externo. em todos eles, assim que começa a procurar detecta como virus.  😡


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

Corri a função no meu PC e não acusou nada.

Tenho o BitDefender 2010.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Andrepereira9

eu tenho o Norton 360 V5.0


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
bioshock
        Dim Directório As New IO.DirectoryInfo("c:\WINDOWS")
        Dim TodosFicheiros As IO.FileInfo() = Directório.GetFiles("*.*")
        Dim Ficheiro As IO.FileInfo
        For Each Ficheiro In TodosFicheiros
        Debug.WriteLine(Ficheiro.Name)
        Next

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.