Todos os nomes de arquivos

Question

Bem estou criando um anti virus simples mais preciso de uma ajudinha =/

Bom, Eu fasso o sistema de scaner por "FileSystem.FileExists"

Eu queria fazer assim:

If My.Computer.FileSystem.FileExists("C:\Users\" & My.Computer.Name & "\Desktop\" & alguma variavel ou coisa do tipo & ".bat") Then ListBox1.Items.Add("File.bat")

esse "alguma variavel ou coisa do tipo" e assim eu tenho um arquivo ola.bat isso e para ele escanear e deletar só que 

esse arquivo pode ter outro nome e eu queria que ele pegasse todos os arquivos .bat não importa o nome podem me ajudar ?

ps: no "My.Computer.Name" tambem estou com erro eu queria o nome da maquina tipo:

c:/users/meunome/desktop/ola.bat

Answer 1

Boa tarde,

Use o metodo  Path.GetExtension(string path). Ele vai te retornar a extensão do arquivo, passando o caminho completo.

Att

---

Guilherme Silva Cardoso

Answer 2

Tenta fazer assim:

 
    Public Function Extensao(ByVal PastaDeArquivos As String, ByVal Extensao As _
String) 
        Dim di As New IO.DirectoryInfo(Diretorio)
        'Dim files As IO.FileInfo
        Dim arquivoTipo As IO.FileInfo() = di.GetFiles("*.bat")
      

        For Each files As IO.FileInfo In arquivoTipo
            Try
             'Aqui entra o que voce deseja executar
            Catch ex As Exception
                ex.Message.ToString()
            End Try
        Next
      
    End Function

Não esqueça de Importar a classe : Imports System.IO

Espero ter ajudado