Remove From My Forums

Copia de arquivo.

Pergunta
0

Entrar para Votar

Bom dia,

1º Estou querendo um script que copia arquivos criado no dia, pois a cada dia é gerado um arquivo, mas nesta pasta tem varios arquivos, começando com TESTE_xxx.txt, EXECUTANDO_xxx.TXT, no caso só gostaria que verificasse os arquivos que inicie somente com "EXECUTANDO", o script que tenho só verifica as extensões, mas pelo nome não sei como fazer.

2º O computador de destino não está no dominio, então terá que especificar usuário e senha (ciente em relação a segurança).

O script que tenho é este:

set objNetwork = CreateObject("Wscript.Network")
strUserName = objNetwork.Username

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Coloque aqui a pasta que será verificada (AQUI COLOQUEI O CAMINHO ONDE ESTÁ OS ARQUIVOS)

strPasta = "\\\192.168.0.1.\teste\"

'Coloque aqui a pasta para a qual os arquivos serão copiados (AQUI COLOQUEI O CAMINHO ONDE É PARA ENVIAR)
strDest = \\192.168.20.15\backup

' NOME DO ARQUIVO DE LOG
strLogFile = "C:\IND_SP\IND_SP.txt"

arrTipos = split(arrTipos,";")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine VBCRLF
objLogFile.WriteLine "==================================================="
objLogFile.WriteLine "ARQUIVOS COPIADOS EM: " & now
objLogFile.WriteLine "==================================================="

ChecaArquivo strPasta

'wscript.echo "Fim do Script"
'wscript.quit

Sub ChecaArquivo(strSubPasta)

Set Folder = ObjFSO.GetFolder(strSubPasta)

GeraLog strSubPasta
LimpaDel strSubPasta

For each subFolder in Folder.SubFolders
   GeraLog SubFolder.Path
   LimpaDel SubFolder.path
   ChecaArquivo SubFolder.path
Next

End sub

'====================================================================

Sub GeraLog(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))

   if (objFSO.FileExists(strFileDest) = True) Then
      Set objFileDest = objFSO.GetFile(strFileDest)
      If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 Then

         objFSO.Copyfile strFileOrig,strFileDest,True
         objLogFile.WriteLine "ARQUIVO SUBSTITUIDO : " & myfiles.name & " copiado em : " & Now
      End if
   Else
      pastapai = MID(RIGHT(myFiles.ParentFolder,LEN(myFiles.ParentFolder)),Len(strPasta),Len(myFiles.ParentFolder))
      dirDest = strDest
      arrTipos = split(pastapai,"\")
      For x = 0 to UBOUND(arrTipos)
         if objFSO.folderexists(dirDest & arrTipos(x)) = false Then
           objFSO.CreateFolder(dirDest & arrTipos(x))
           dirDest = dirDest & arrTipos(x) & "\"
         Else
           dirDest = dirDest & arrTipos(x) & "\"
         End if
      Next

'      WSCRIPT.ECHO "NAO EXISTE"
      objFSO.Copyfile strFileOrig,strFileDest,True
      objLogFile.WriteLine "ARQUIVO NOVO : " & dirDest & myfiles.name & " copiado em : " & Now
   End if
Next
End sub

'====================================================================

Sub LimpaDel(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))

   if not (objFSO.FileExists(strFileDest) = True) Then
      objLogFile.WriteLine "ARQUIVO DELETADO : " & dirDest & myfiles.name & " em : " & Now
   End if
Next
End sub

(ESSE NÃO ME ATENDE PARA ESSA SOLICITAÇÃO).

Agradeço desde já a força.

quarta-feira, 24 de março de 2010 14:23

Responder

|

Citação

Respostas

0

Entrar para Votar
Olá,

Muda a linha:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 and DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) <= 2 Then

Para:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) = 1 Then

Até mais,

Jesiel

Obs.: Se útil, classifique
- Marcado como Resposta Rafael S. AMARAL terça-feira, 20 de abril de 2010 13:40
terça-feira, 30 de março de 2010 17:08

Responder

|

Citação

Todas as Respostas

0

Entrar para Votar

Bom dia,

Alguma sugestão ?

quinta-feira, 25 de março de 2010 12:25

Responder

|

Citação
0

Entrar para Votar

Olá,

Modifique a Sub abaixo:

'====================================================================

Sub GeraLog(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

strPalavra = "executando"

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))
   if instr(UCASE(Myfiles.name),UCASE(strPalavra)) > 0 Then
      wscript.echo Myfiles.name
      if (objFSO.FileExists(strFileDest) = True) Then
         Set objFileDest = objFSO.GetFile(strFileDest)
         If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 Then
            objFSO.Copyfile strFileOrig,strFileDest,True
            objLogFile.WriteLine "ARQUIVO SUBSTITUIDO : " & myfiles.name & " copiado em : " & Now
         End if
      Else
         pastapai = MID(RIGHT(myFiles.ParentFolder,LEN(myFiles.ParentFolder)),Len(strPasta),Len(myFiles.ParentFolder))
         dirDest = strDest
         arrTipos = split(pastapai,"\")
         For x = 0 to UBOUND(arrTipos)
            if objFSO.folderexists(dirDest & arrTipos(x)) = false Then
              objFSO.CreateFolder(dirDest & arrTipos(x))
              dirDest = dirDest & arrTipos(x) & "\"
            Else
              dirDest = dirDest & arrTipos(x) & "\"
            End if
         Next

         objFSO.Copyfile strFileOrig,strFileDest,True
         objLogFile.WriteLine "ARQUIVO NOVO : " & dirDest & myfiles.name & " copiado em : " & Now
      End if
   End if
Next
End sub

'====================================================================

Até mais,

Jesiel

Obs.: Se útil, classifique

quinta-feira, 25 de março de 2010 12:25

Responder

|

Citação
0

Entrar para Votar

Bom dia Jesiel,

Primeiramente obrigado pela força.

O script está funcionando, gostaria de saber se é possível colocar um usuário e senha nele, pois o destino não está no domínio. (provavelmente um local\user password:xxxxxxx).

Tem como também configurar que ele só traga pelo menos 2 dias, ele traz todos e é quase 2 GB de arquivos. (Os dois últimos dias é o suficiente).

Outra coisa, tem como tirar a mensagem no final do script ? (ele. aparece os nomes dos arquivos que foram copiados, acho desnecessário pelo fato de ter o log).

Obrigado desde já.

sexta-feira, 26 de março de 2010 12:19

Responder

|

Citação
0

Entrar para Votar

Olá,

Basta remover a linha:

wscript.echo Myfiles.name

E para fazer somente com 2 ultimos dias altere a linha:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 Then

Para:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 and DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) <= 2 Then

Faça os testes e nos retorne.

Até mais,

Jesiel

Obs.: Se útil, classifique

sexta-feira, 26 de março de 2010 13:41

Responder

|

Citação
0

Entrar para Votar

Olá,

Basta remover a linha:

wscript.echo Myfiles.name

E para fazer somente com 2 ultimos dias altere a linha:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 Then

Para:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 and DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) <= 2 Then

Faça os testes e nos retorne.

Até mais,

Jesiel

Obs.: Se útil, classifique

Então com isso se tiver arquivos TESTE.txt com data de dois dias e outros com 1 mês de idade, ele só vai trazer com a data de 2 dias ?

Referente a senha é possível ?, pois se não der, acho que será em vão, pois como ja havia dito, a maquina origem está fora do domínio.

Outro detalhe: Estou fazendo um ambiente teste aqui e executei esse script e apareceu no log como arquivo deletado, (ESTÁ SENDO DELETADO ALGO?)

S C R I P T

Set objNetwork = CreateObject("Wscript.Network")
strUserName = objNetwork.Username

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Coloque aqui a pasta que será verificada (AQUI COLOQUEI O CAMINHO ONDE O PESSOAL VAI TRABALHAR DURANTE O DIA - AQUI É A FILIAL)
strPasta = "\\192.68.0.15\c$\Documents and Settings\user\My Documents\PGP\"

'Coloque aqui a pasta para a qual os arquivos serão copiados (AQUI COLOQUEI O CAMINHO ONDE É PARA ESTAR DE ACORDO COM O QUE FOI FEITO DURANTE O DIA NA FILIAL- AQUI É A MATRIZ)
strDest = "\\192.168.0.2\teste\"

' NOME DO ARQUIVO DE LOG
strLogFile = "c:\Backup-log.txt"

arrTipos = split(arrTipos,";")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine VBCRLF
objLogFile.WriteLine "==================================================="
objLogFile.WriteLine "ARQUIVOS COPIADOS EM: " & now
objLogFile.WriteLine "==================================================="

ChecaArquivo strPasta

'wscript.echo "Fim do Script"
'wscript.quit

Sub ChecaArquivo(strSubPasta)

Set Folder = ObjFSO.GetFolder(strSubPasta)

GeraLog strSubPasta
LimpaDel strSubPasta

For each subFolder in Folder.SubFolders
   GeraLog SubFolder.Path
   LimpaDel SubFolder.path
   ChecaArquivo SubFolder.path
Next

End sub

'====================================================================

Sub GeraLog(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

strPalavra = "teste"

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))
   if instr(UCASE(Myfiles.name),UCASE(strPalavra)) > 0 Then
      wscript.echo Myfiles.name
      if (objFSO.FileExists(strFileDest) = True) Then
         Set objFileDest = objFSO.GetFile(strFileDest)
         If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 0 Then
            objFSO.Copyfile strFileOrig,strFileDest,True
            objLogFile.WriteLine "ARQUIVO SUBSTITUIDO : " & myfiles.name & " copiado em : " & Now
         End if
      Else
         pastapai = MID(RIGHT(myFiles.ParentFolder,LEN(myFiles.ParentFolder)),Len(strPasta),Len(myFiles.ParentFolder))
         dirDest = strDest
         arrTipos = split(pastapai,"\")
         For x = 0 to UBOUND(arrTipos)
            if objFSO.folderexists(dirDest & arrTipos(x)) = false Then
              objFSO.CreateFolder(dirDest & arrTipos(x))
              dirDest = dirDest & arrTipos(x) & "\"
            Else
              dirDest = dirDest & arrTipos(x) & "\"
            End if
         Next

         objFSO.Copyfile strFileOrig,strFileDest,True
         objLogFile.WriteLine "ARQUIVO NOVO : " & dirDest & myfiles.name & " copiado em : " & Now
      End if
   End if
Next
End sub

'====================================================================

Sub LimpaDel(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))

   if not (objFSO.FileExists(strFileDest) = True) Then
      objLogFile.WriteLine "ARQUIVO DELETADO : " & dirDest & myfiles.name & " em : " & Now
   End if
Next
End sub

L O G

===================================================
ARQUIVOS COPIADOS EM: 26/03/2010 11:07:37
===================================================
ARQUIVO DELETADO : PGP3D.pkr em : 26/03/2010 11:07:38
ARQUIVO DELETADO : PGP3D.skr em : 26/03/2010 11:07:38
ARQUIVO DELETADO : pubring-bak.pkr em : 26/03/2010 11:07:38
ARQUIVO DELETADO : pubring.pkr em : 26/03/2010 11:07:38
ARQUIVO DELETADO : secring-bak.skr em : 26/03/2010 11:07:38
ARQUIVO DELETADO : secring.skr em : 26/03/2010 11:07:39

sexta-feira, 26 de março de 2010 14:23

Responder

|

Citação
0

Entrar para Votar

Olá,

É que o ultimo sub (limpadel) seria para deletar os arquivos que existem na pasta destino e não existe mais na pasta origem.

Mas não tem a ação de deletar. só esta gerando o log.

Você pode remover este sub e remover também a chamada dele na linha:

LimpaDel SubFolder.path

Acredito, que para executar em outra maquina, o melhor seria utilizar o runas.

Verifique no link abaixo onde eu postei um script .hta para usar o runas.

http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/ce62c44e-3500-4968-afe7-a9e2d2dcf7fe

Até mais,

Jesiel

Obs.: Se útil, classifique

sexta-feira, 26 de março de 2010 16:26

Responder

|

Citação
0

Entrar para Votar

Boa Tarde Jesiel,

Obrigado pela informação.

Referente a senha tenho que colocar o no script mesmo, pois vou jogar no TASKS.

Teriamos uma outra opção?

sexta-feira, 26 de março de 2010 16:58

Responder

|

Citação
0

Entrar para Votar

Olá,

Você vai colocar a senha no script?

É uma falha de segurança, mas você pode usar o runas em vbs:

set oShell= Wscript.CreateObject("WScript.Shell")

oShell.Run "runas /user:COMPUTER\usuario ""script.vbs"""

WScript.Sleep 100

oShell.Sendkeys "senha~"

Wscript.Quit

Até mais,

Jesiel

Obs.: Se útil, classifique

sexta-feira, 26 de março de 2010 17:01

Responder

|

Citação
0

Entrar para Votar

No momento vou colocar sim, voou transformálo em VBE (td bem que é facil de quebrar)

Esse script eu coloco no começo ? e ficaria assim ?

''''INICIA AQUI''''

set oShell= Wscript.CreateObject("WScript.Shell")

oShell.Run "runas /user:192.168.0.2\RAFAEL ""script.vbs""" (esse script.vbs seria o nome do meu?)

WScript.Sleep 100

oShell.Sendkeys "123456~"

Wscript.Quit

Set objNetwork = CreateObject("Wscript.Network")
strUserName = objNetwork.Username

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Coloque aqui a pasta que será verificada (AQUI COLOQUEI O CAMINHO ONDE O PESSOAL VAI TRABALHAR DURANTE O DIA - AQUI É A FILIAL)
strPasta = "\\10.8.1.89\d$\Teste1\"

'Coloque aqui a pasta para a qual os arquivos serão copiados (AQUI COLOQUEI O CAMINHO ONDE É PARA ESTAR DE ACORDO COM O QUE FOI FEITO DURANTE O DIA NA FILIAL- AQUI É A MATRIZ)
strDest = "\\10.8.2.36\teste\"

' NOME DO ARQUIVO DE LOG
strLogFile = "c:\Backup-log.txt"

arrTipos = split(arrTipos,";")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine VBCRLF
objLogFile.WriteLine "==================================================="
objLogFile.WriteLine "ARQUIVOS COPIADOS EM: " & now
objLogFile.WriteLine "==================================================="

ChecaArquivo strPasta

'wscript.echo "Fim do Script"
'wscript.quit

Sub ChecaArquivo(strSubPasta)

Set Folder = ObjFSO.GetFolder(strSubPasta)

GeraLog strSubPasta
LimpaDel strSubPasta

For each subFolder in Folder.SubFolders
   GeraLog SubFolder.Path
   LimpaDel SubFolder.path
   ChecaArquivo SubFolder.path
Next

End sub

'====================================================================

Sub GeraLog(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

strPalavra = "teste"

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))
   if instr(UCASE(Myfiles.name),UCASE(strPalavra)) > 0 Then
      wscript.echo Myfiles.name
      if (objFSO.FileExists(strFileDest) = True) Then
         Set objFileDest = objFSO.GetFile(strFileDest)
         If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 and DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) <= 2 Then
            objFSO.Copyfile strFileOrig,strFileDest,True
            objLogFile.WriteLine "ARQUIVO SUBSTITUIDO : " & myfiles.name & " copiado em : " & Now
         End if
      Else
         pastapai = MID(RIGHT(myFiles.ParentFolder,LEN(myFiles.ParentFolder)),Len(strPasta),Len(myFiles.ParentFolder))
         dirDest = strDest
         arrTipos = split(pastapai,"\")
         For x = 0 to UBOUND(arrTipos)
            if objFSO.folderexists(dirDest & arrTipos(x)) = false Then
              objFSO.CreateFolder(dirDest & arrTipos(x))
              dirDest = dirDest & arrTipos(x) & "\"
            Else
              dirDest = dirDest & arrTipos(x) & "\"
            End if
         Next

         objFSO.Copyfile strFileOrig,strFileDest,True
         objLogFile.WriteLine "ARQUIVO NOVO : " & dirDest & myfiles.name & " copiado em : " & Now
      End if
   End if
Next
End sub

'====================================================================

Sub LimpaDel(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))

   if not (objFSO.FileExists(strFileDest) = True) Then
      objLogFile.WriteLine "ARQUIVO DELETADO : " & dirDest & myfiles.name & " em : " & Now
   End if
Next
End sub

''''TERMINA AQUI''''

sexta-feira, 26 de março de 2010 17:15

Responder

|

Citação
0

Entrar para Votar

Bom dia Jesiel,

Poderia me informar onde coloco o runas, conforme a citação em cima, está correto?

Outro detalhe: O Script abaixo ainda continua trazendo arquivos com datas com mais de 2 dias (Exemplo: Está vindo arquivo de 2009 ainda)

Set objNetwork = CreateObject("Wscript.Network")
strUserName = objNetwork.Username

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Coloque aqui a pasta que será verificada (AQUI COLOQUEI O CAMINHO ONDE O PESSOAL VAI TRABALHAR DURANTE O DIA - AQUI É A FILIAL)
strPasta = ''\\192.168.25.30\teste2''

'Coloque aqui a pasta para a qual os arquivos serão copiados (AQUI COLOQUEI O CAMINHO ONDE É PARA ESTAR DE ACORDO COM O QUE FOI FEITO DURANTE O DIA NA FILIAL- AQUI É A MATRIZ)
strDest = "\\10.8.2.36\teste\"

' NOME DO ARQUIVO DE LOG
strLogFile = "c:\Backup-log.txt"

arrTipos = split(arrTipos,";")
Set objLogFile = objFSO.OpenTextFile(strLogFile, 8, True, 0)
objLogFile.WriteLine VBCRLF
objLogFile.WriteLine "==================================================="
objLogFile.WriteLine "ARQUIVOS COPIADOS EM: " & now
objLogFile.WriteLine "==================================================="

ChecaArquivo strPasta

'wscript.echo "Fim do Script"
'wscript.quit

Sub ChecaArquivo(strSubPasta)

Set Folder = ObjFSO.GetFolder(strSubPasta)

GeraLog strSubPasta
LimpaDel strSubPasta

For each subFolder in Folder.SubFolders
   GeraLog SubFolder.Path
   LimpaDel SubFolder.path
   ChecaArquivo SubFolder.path
Next

End sub

'====================================================================

Sub GeraLog(strCaminho)

Set objArq = ObjFSO.GetFolder(strCaminho)
Set MyFiles = objArq.files

strPalavra = "PRECOS"

For Each MyFiles in objArq.Files
   strFileOrig = Myfiles.path
   strFileDest = strDest & MID(MyFiles.path,Len(strPasta),Len(Myfiles.path))
   if instr(UCASE(Myfiles.name),UCASE(strPalavra)) > 0 Then
      'wscript.echo Myfiles.name
      if (objFSO.FileExists(strFileDest) = True) Then
         Set objFileDest = objFSO.GetFile(strFileDest)
         If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 and DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) <= 2 Then
            objFSO.Copyfile strFileOrig,strFileDest,True
            objLogFile.WriteLine "ARQUIVO SUBSTITUIDO : " & myfiles.name & " copiado em : " & Now
         End if
      Else
         pastapai = MID(RIGHT(myFiles.ParentFolder,LEN(myFiles.ParentFolder)),Len(strPasta),Len(myFiles.ParentFolder))
         dirDest = strDest
         arrTipos = split(pastapai,"\")
         For x = 0 to UBOUND(arrTipos)
            if objFSO.folderexists(dirDest & arrTipos(x)) = false Then
              objFSO.CreateFolder(dirDest & arrTipos(x))
              dirDest = dirDest & arrTipos(x) & "\"
            Else
              dirDest = dirDest & arrTipos(x) & "\"
            End if
         Next

         objFSO.Copyfile strFileOrig,strFileDest,True
         objLogFile.WriteLine "ARQUIVO NOVO : " & dirDest & myfiles.name & " copiado em : " & Now
      End if
   End if
Next
End sub

segunda-feira, 29 de março de 2010 11:38

Responder

|

Citação
0

Entrar para Votar

Olá,

Desmembra em 2 scripts... um para o runas e outro para a ação de copiar.

Até mais,

Jesiel

Obs.: Se útil, classifique

terça-feira, 30 de março de 2010 12:55

Responder

|

Citação
0

Entrar para Votar

Bom dia Jesiel,

Estamos muito perto de finalizar, consegui jogar para outro local que está no dominio, com isso nao preciso mais do RUNAS.

Coloquei o nome TESTE, mas ainda continua trazendo arquivos antigos.

Para finalizar, como eu poderia configurar então para trazer SOMENTE arquivo criado no dia, esse arquivo é criado automaticamente sempre de madrugada (02:30 AM), estou pensando entao executar esse script sempre as 05:00 AM (mas tem que trazer somente o arquivo deste dia), TEM COMO?

terça-feira, 30 de março de 2010 15:27

Responder

|

Citação
0

Entrar para Votar
Olá,

Muda a linha:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) > 1 and DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) <= 2 Then

Para:

If DateDiff("d",objFileDest.DateLastModified,myfiles.DateLastModified) = 1 Then

Até mais,

Jesiel

Obs.: Se útil, classifique
- Marcado como Resposta Rafael S. AMARAL terça-feira, 20 de abril de 2010 13:40
terça-feira, 30 de março de 2010 17:08

Responder

|

Citação

Produtos

Resources

Solutions

Atualizações

Avaliações

Sites relacionados

Treinamento

Certificações

Outros recursos

Por produtos

Outros links

Não é um IT Pro?

Usuário com melhor resposta

Copia de arquivo.

Pergunta

Respostas

Todas as Respostas