none
VBS para incrementar contador RRS feed

  • Pergunta

  • 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

  • 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