COPIAR ARQUIVOS
Boa noite amigos
E o seguinte eu tenho algumas pastas seguindo a seguinte estruturas:
c:\NotaNFCe\PDV01
dentro dessa pasta eu tenho os arquivos xml de cada nota
essa pasta eu tenho no servidor entao o que eu preciso desenvolver um aplicativo que o usuario ao clicar mande os xml para uma pasta no servidor, se fosse so isso tudo bem mais eu quero mandar somente os arquivos que se refere ao dia em questao, pois essa pasta vai creescer e vai ficar com arquivos do dia 01,02,03,04 ....
sendo que quando o operador for encerrar o dia eu tenho que criar uma rotina para que ele so mande os arquivos referente a esse dia, por que isso:
Poruque esses arquivos seram importados para uma retaguarda.
resumindo quero copiar os arquivos de uma pasta para outro sendo que so os que sao do dia atual.
E o seguinte eu tenho algumas pastas seguindo a seguinte estruturas:
c:\NotaNFCe\PDV01
dentro dessa pasta eu tenho os arquivos xml de cada nota
essa pasta eu tenho no servidor entao o que eu preciso desenvolver um aplicativo que o usuario ao clicar mande os xml para uma pasta no servidor, se fosse so isso tudo bem mais eu quero mandar somente os arquivos que se refere ao dia em questao, pois essa pasta vai creescer e vai ficar com arquivos do dia 01,02,03,04 ....
sendo que quando o operador for encerrar o dia eu tenho que criar uma rotina para que ele so mande os arquivos referente a esse dia, por que isso:
Poruque esses arquivos seram importados para uma retaguarda.
resumindo quero copiar os arquivos de uma pasta para outro sendo que so os que sao do dia atual.
Você deve usar o FSO(File System Object), com ele você pode pegar a data de um arquivo ou qualquer outro atributo dele:
Não esqueça de adicionar a referência do File System Object ao seu projeto para que o script acima funcione.
Dim fso, f, s
Set fso = New FileSystemObject
Set f = fso.GetFile([Ô]C:\pasta\arquivo.xml[Ô])
MsgBox [Ô]Ultimo acesso arquivo: [Ô] + f.DateLastAccessed
MsgBox [Ô]Ultimo modificação arquivo: [Ô] & f.DateLastModified
Não esqueça de adicionar a referência do File System Object ao seu projeto para que o script acima funcione.
Tópico encerrado , respostas não são mais permitidas