Ola. Preciso de ajuda para incrementar a minha Vbs abaixo :
Efetua a captura dos campos dd mm aa da variável date. Renomeio arquivo existe em direório especifico com os campos aammdd e incremento com as váriaveis compl1 e compl2, porém, a variável compl1 deve ser um sequencial. Como posso criar este sequencial e
guardar a váriavel ?
dteCurrent = Date()
dteDay = Day(dteCurrent)
dteMonth = Month(dteCurrent)
dteYear = Year(dteCurrent)
Compl1 = "SEQ"
Compl2 = ".RET"
Dia = (day(Date))
If Len(dia) = "1" Then dia = "0" & (Dia)
Mes = (Month(Date))
If Len(Mes) = "1" Then Mes = "0" & (Mes)
Ano = (Year(date))
If Len(Ano) = "1" Then Ano = "0" & (Ano)
Esquerda = Left(Ano, 2)
Direita = Right(Ano, 2)
MyDate1 = Direita & "" & 0 & dteMonth & "" & dteDay & "" & Compl1 & Compl2
MSGBOX Mydate1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.moveFile "D:\TESTE\ARQUIVO2","D:\TESTE\" & Mydate1
Muito Obrigado.