Eder Reis

não creio que o VBScript vá fazer isso! sinto muito!

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

É fácil login é support e a senha fica atrás do modem logo abaixo do admin http://192.168.15.1/padrão