none
Todos os nomes de arquivos RRS feed

  • Pergunta

  • 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


    • Editado xgames178 sábado, 26 de outubro de 2013 16:36 erro
    sábado, 26 de outubro de 2013 16:25

Respostas

  • 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

    • Sugerido como Resposta Geraldo Ribeiro segunda-feira, 28 de outubro de 2013 19:50
    • Marcado como Resposta Giovani Cr terça-feira, 29 de outubro de 2013 16:38
    sábado, 26 de outubro de 2013 16:55
  • 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



    • Editado Geraldo Ribeiro segunda-feira, 28 de outubro de 2013 19:59
    • Marcado como Resposta Giovani Cr terça-feira, 29 de outubro de 2013 16:38
    segunda-feira, 28 de outubro de 2013 19:57

Todas as Respostas

  • 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

    • Sugerido como Resposta Geraldo Ribeiro segunda-feira, 28 de outubro de 2013 19:50
    • Marcado como Resposta Giovani Cr terça-feira, 29 de outubro de 2013 16:38
    sábado, 26 de outubro de 2013 16:55
  • 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



    • Editado Geraldo Ribeiro segunda-feira, 28 de outubro de 2013 19:59
    • Marcado como Resposta Giovani Cr terça-feira, 29 de outubro de 2013 16:38
    segunda-feira, 28 de outubro de 2013 19:57