EXCLUIR ARQUIVO DE UMA PASTA

JOHNSTEVE 30/08/2016 21:55:22
#466325
Galera boa noite, estou querendo excluir um arquivo de extensão 
  .xml


por exemplo.
eu queria excluir os arquivos que contém o final -procNFe

Tipo todo arquivo xml q tiver com esse final queria exclui-lo
pq nessa pasta eu tenho 2 tipos de arquivo..

1- terminando -nfe
2 - terminando -procNFe

dae galera esse segundo eu queria excluir da pasta.
tem algum metodo que eu possa excluir do diretorio.. tipo usando o mid

pesquisei na net. mais so achei excluindo pela Extensão... só q todos são com essa extensão [txt-color=#e80000] .xml [/txt-color]

exemplos:
00000000000000-000000000000000-procNFe.xml
00000000000000-000000000000000-nfe.xml
KERPLUNK 30/08/2016 22:13:27
#466328 Resposta escolhida
é muito simples:

Dim dir As New DirectoryInfo([Ô]D:\pasta[Ô])
Dim arquivos As IEnumerable(Of FileInfo) = dir.EnumerateFiles([Ô]*qualquercoisa.xml[Ô])
For Each arq As FileInfo In arquivos
	File.Delete(arq.FullName)
Next


A parte [Ô]qualquercoisa.xml[Ô] é onde você vai colocar o padrão arquivo que quer. No caso, qualquer arquivo cujo nome termine com [Ô]qualquercoisa[Ô] e que seja da extensão XML será incluído na lista [Ô]arquivos[Ô] que logo abaixo é percorrida e cada um dos arquivos dentro dela será deletado. Vale lembrar que qualquer padrão de arquivo pode ser usado, incluindo os caracteres coringa como [Ô]*[Ô], que estou usando e [Ô]?[Ô]. Se você não conhece caracteres coringa, veja aqui.
JOHNSTEVE 30/08/2016 22:26:40
#466329
Citação:

:
é muito simples:


Dim dir As New DirectoryInfo([Ô]D:pasta[Ô])
Dim arquivos As IEnumerable(Of FileInfo) = dir.EnumerateFiles([Ô]*qualquercoisa.xml[Ô])
For Each arq As FileInfo In arquivos
	File.Delete(arq.FullName)
Next


A parte [Ô]qualquercoisa.xml[Ô] é onde você vai colocar o padrão arquivo que quer. No caso, qualquer arquivo cujo nome termine com [Ô]qualquercoisa[Ô] e que seja da extensão XML será incluído na lista [Ô]arquivos[Ô] que logo abaixo é percorrida e cada um dos arquivos dentro dela será deletado. Vale lembrar que qualquer padrão de arquivo pode ser usado, incluindo os caracteres coringa como [Ô]*[Ô], que estou usando e [Ô]?[Ô]. Se você não conhece caracteres coringa, veja aqui.



hehehehe show de bola Kerblunk da certo tbm..
so q acabei fazendo com Mid .

veja só funcionou que foi uma beleza :D

    Dim Deleta_procNFe As String
            Deleta_procNFe = Mid(Test, 73, 7) [ô]deleta os arquivos do mdfe de carga
            If Deleta_procNFe = [Ô]procNFe[Ô] Then
                System.IO.File.Delete(Test)
            End If

            Dim Deleta_eve As String
            Deleta_eve = Mid(Test, 73, 3) [ô]deleta os arquivo de CTe
            If Deleta_eve = [Ô]eve[Ô] Then
                System.IO.File.Delete(Test)
                Test = [Ô][Ô]
            End If
KERPLUNK 30/08/2016 22:29:53
#466330
Bem, você quem sabe.
JOHNSTEVE 30/08/2016 22:42:23
#466331
Citação:

:
Bem, você quem sabe.



vlw obrigadão Mestre :D

vou fechar o topico :D
Tópico encerrado , respostas não são mais permitidas
Voltar