none
VBS para incrementar contador RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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.


    • Editado Fábio JrModerator quarta-feira, 13 de novembro de 2013 12:24 Formatação do código
    sexta-feira, 28 de maio de 2010 14:18
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Duas sugestões:

    1) Guardar o valor do sequencial dentro de um arquivo texto ao final da execução do script, e no inicio do script sempre ler este arquivo e incrementar 1.

    2) Ler a lista de arquivos do diretório de destino e por ordem de nome identificar o ultimo arquivo gerado e pegar o sequencial dele utilizando a função MID.

    ---------------------------

    Mutirão de Respostas

    ---------------------------

    Fábio de Paula Junior


    quarta-feira, 13 de novembro de 2013 12:26
    |
    Moderador