none
Renomear arquivos com dia da semana RRS feed

  • Pergunta

  • Queria fazer um script que renomeasse os arquivos acrescentando o dia da semana tipo?

    arquivo1.txt > arquivo1-segunda-feira.txt

    Hoje eu faço com data, assim: arquivo1.txt > arquivo1-20072011.txt

    Vlzz


    by Dimiro MCP | ITILF Foi útil? Classifique! Se resolveu, avalie! ;) °dimiro.com | ºtwitter.com/bydimiro
    quinta-feira, 21 de julho de 2011 11:48

Respostas

  • Cláudio,

    Salve o arquivo abaixo com um nome (exemplo) renomeia.vbs.

    strFile=wscript.arguments(0)
    
    Pos_Ponto=instrrev(strFile,".")
    
    extensao = mid(strFile,pos_ponto)
    nome=mid(strFile,1,Pos_Ponto-1)
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.MoveFile strFile , nome & "-" & weekdayname(weekday(now)) & extensao
    

    Utilize da seguinte forma a partir do prompt de comando:

    cscript renomeia.vbs arquivo1.txt

     


    Fábio de Paula Junior
    sexta-feira, 22 de julho de 2011 11:58
    Moderador

Todas as Respostas

  • Cláudio,

    Segue código vbScript:

    Dim DataAtual, DiaDaSemana
    DataAtual = Now()
    DiaDaSemana = Weekday(DataAtual)
    msgbox WeekDayName(DiaDaSemana)

     

     

    quinta-feira, 21 de julho de 2011 15:42
  • Cláudio,

    Salve o arquivo abaixo com um nome (exemplo) renomeia.vbs.

    strFile=wscript.arguments(0)
    
    Pos_Ponto=instrrev(strFile,".")
    
    extensao = mid(strFile,pos_ponto)
    nome=mid(strFile,1,Pos_Ponto-1)
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.MoveFile strFile , nome & "-" & weekdayname(weekday(now)) & extensao
    

    Utilize da seguinte forma a partir do prompt de comando:

    cscript renomeia.vbs arquivo1.txt

     


    Fábio de Paula Junior
    sexta-feira, 22 de julho de 2011 11:58
    Moderador
  • Tem algum programa que me ajude na criação destes scripts em vbs?

     


    by Dimiro MCP | ITILF Foi útil? Classifique! Se resolveu, avalie! ;) °dimiro.com | ºtwitter.com/bydimiro
    sexta-feira, 22 de julho de 2011 12:55
  • Eu utilizo o Notepad++, só ajuda no visual.

    Já utilizei o VBSEdit (http://www.vbsedit.com/) gostei (tem debugger) mas ele é pago, a versão de avaliação não expira mas se me lembro bem ela fica exibindo uma mensagem toda vez que vc executa um script.


    Fábio de Paula Junior
    sexta-feira, 22 de julho de 2011 13:37
    Moderador