Ir ao conteúdo
  • Cadastre-se

Eder Reis

Membros Juniores
  • Total de itens

    3
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Informações gerais

  • Cidade e Estado
    Salvador/BA
  • Sexo
    Masculino

Meu PC

  • Sistema Operacional
    Xenserver?
  1. não creio que o VBScript vá fazer isso! sinto muito!
  2. Olá!.. é isso aqui que você quer? ' Lógica: ' ' se mês menor que 10 então -> concatene com "0" ' se dia menor que 10 então -> concatene com "0" ' ' copie arquivo.log para AAAAmmDD.log Option Explicit Dim logAno ' ano Dim logMes ' mes Dim logDia ' dia Dim caminhoFonte ' Caminho do arquivo original. Dim nomeArqFonte ' Nome do arquivo de fonte. Dim localDaFonte ' Caminho completo do diretório mais nome do arquivo Dim caminhoCopia ' Caminho da copia do arquivo. Dim nomeArqCopia ' Nome do arquivo de cópia. Dim localDaCopia ' Caminho completo do diretório mais o nome copia. Dim objSA ' Objeto do sistema de arquivos. ' Dando valores as variáveis logAno = Year(Date) ' Valor Date me interessa o ano logMes = Month(Date) ' Valor Date me interessa... logDia = Day(Date) ' Valor... caminhoFonte = "C:\log\" nomeArqFonte = "acesso.log" localDaFonte = caminhoFonte & nomeArqFonte caminhoCopia = "C:\log\" ' Caso os meses de Janeiro à Setembro, eles tem só um dígito ' para o arquivo não ficar: aaaaMdd.log if Month(Date) < 10 Then logMes = "0" & logMes ' Casos os dias sejam do primeiro ao nono dia eles só tem ' um dígito para que o arquivo não fique: aaaammD.log if Day(Date) < 10 then logDia = "0" & logDia nomeArqCopia = logAno & logMes & logDia & ".log" ' AAAAmmDD.log localDaCopia = caminhoCopia & nomeArqCopia Set objSA = CreateObject("Scripting.FileSystemObject") objSA.CopyFile localDaFonte, localDaCopia
  3. É fácil login é support e a senha fica atrás do modem logo abaixo do admin http://192.168.15.1/padrão

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×