LISTAR XML

 Tópico anterior Próximo tópico Novo tópico

LISTAR XML

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#490820 - 18/10/2019 12:21:41

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Ola Pessoal BLZ

pessoal eu criei um APP, que copia todos os XMLS, gerados no mes para uma pasta destino

esta funcionando, mais fico muito lento
estou fazendo assim

listo todos os Arquivos XML em um LlistBox
depois via LOOP vou verificando a data de criação dos arquivos 1 a 1, quando o arquivos foi criado na data que desejo
o APP copia esse Arquivos para outra Pasta.

a questão e que esta ficando muito demorado todo esse processo.
sera que existe uma forma melhor de selecionar todos os XML por data,
sem ter que ficar olhando a data de criação de 1 por 1

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#490822 - 18/10/2019 13:07:27

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Esse tipo de coisa(copiar apenas arquivos novos para uma pasta), quando preciso, uso o Robocopy do powershell.
Fica assim:

robocopy /xc /xn /xo Origem Destino

Obviamente, substitua "origem" e "destino" pelos caminhos das tuas pastas. As opções
xc: exclude changed
xn: exclude newer
xo: exclude older
Ou seja, copia somente arquivos novos da origem para o destino

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490825 - 18/10/2019 13:43:10

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Esse tipo de coisa(copiar apenas arquivos novos para uma pasta), quando preciso, uso o Robocopy do powershell.
Fica assim:

robocopy /xc /xn /xo Origem Destino

Obviamente, substitua "origem" e "destino" pelos caminhos das tuas pastas. As opções
xc: exclude changed
xn: exclude newer
xo: exclude older
Ou seja, copia somente arquivos novos da origem para o destino

Ola KerplunK tudo bem?
então acho que não expliquei direito
todos os meses e criado uma nova pasta para cada unidade e dentro da pata unidade tem um pasta para cada Caixa

então todos os meses a pasta destino esta vazia(e tudo novo)

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#490826 - 18/10/2019 13:49:49

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Então o que você quer é basicamente copiar arquivos de uma determinada data para uma outra pasta. Isso também é possível no powershell, não é necessário um app específico para isso.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490827 - 18/10/2019 13:56:33

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Então o que você quer é basicamente copiar arquivos de uma determinada data para uma outra pasta. Isso também é possível no powershell, não é necessário um app específico para isso.

você tem algum exemplo de como aplicar os filtros no Powershell?

como disse eu estou criando LOOP e o app fico muito demorado para executar algo que e simples


Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#490828 - 18/10/2019 14:00:25

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Assim deve funcionar

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490849 - 18/10/2019 22:19:53

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Veja te isso te ajuda

Crie uma classe do tipo
Friend Class ListItem
    Private PPar1 As String
    Private PPar2 As String

    Public Sub New(Par1 As String, Par2 As String)
        Me.PPar1 = Par1
        Me.PPar2 = Par2
    End Sub

    Public ReadOnly Property Par1 As String
        Get
            Return PPar1
        End Get
    End Property

    Public ReadOnly Property Par2 As String
        Get
            Return PPar2
        End Get
    End Property
End Class

Para filtrar os arquivos use o seguinte codigo:
        Dim fileInterval = From f In Directory.EnumerateFiles("E:\PastaXML") Let fileCreationTime = File.GetCreationTime(f) Where fileCreationTime.Date > "01/03/2019" And fileCreationTime.Date < "01/08/2019" Order By fileCreationTime Select New ListItem(Path.GetFileName(f), f)

        Dim Arqs As List(Of ListItem) = fileInterval.ToList()

        For Each L As ListItem In Arqs
            MsgBox(L.Par1 & " <--> " & L.Par2)
        Next


Sustitua os parametros da pasta e das datas pelas que vc necessita




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MFLAVIO em 31/10/2019 17:02:42