none
Script para renomear RRS feed

  • Pergunta

  • Script para renomear varios arquivos (mantendo o começo do nome original do arquivo .

    Exemplo de arquivos:

    Antes de executar o script:

     8535 - PREFEITURA DE ARARAS - Pasta Azul e branca - 480x340mm - 175 lpi - GTO - 1C_2P .pdf

    8555a - RICCA BRIND.pdf

    8542B - TUBOPARTES - Questionário Triagem - Covid 19 - 148x210mm - 150 lpi - GTO - 1C_1P.pdf

    Após execução do script:

    8535 - PREFEITU.pdf

    8555a - RICCA B.pdf

    8542B - TUBOPA.pdf

    No caso ele mantém o começo do nome original (base) de todos os arquivos 

    domingo, 18 de abril de 2021 23:30

Respostas

  • Olá

    Segue um link do fórum com uma solução

    https://social.technet.microsoft.com/Forums/pt-BR/6abce6f0-2877-4b1f-a199-c85b7f674b23/script-para-renomear-varios-arquivos-mantendo-o-nome-original-do-arquivo-e-fazer-apenas-uma?forum=scriptadminpt


    Olá, obrigado por participar da Comunidade TechNet. Paulo Costa | MCSE | MCSA | MCT | blog: http://paulocostati.com/ ______________________________________________________________ Por favor lembre-se marcar como resposta as respostas que solucionaram seu problema, é uma forma comum de reconhecer aquelas pessoas que te ajudaram, e faz com que seja mais fácil para os outros visitantes encontrar a solução depois. Microsoft oferece esse serviço de forma gratuita, com a finalidade de ajudar os usuários e ampliar a base de dados de conhecimentos relacionados com os produtos e tecnologias de Microsoft. Este conteúdo é proporcionado "tal qual" e não implica nenhuma responsabilidade por parte de Microsoft.

    • Marcado como Resposta jwillian quarta-feira, 21 de abril de 2021 12:52
    terça-feira, 20 de abril de 2021 15:39
  • Veja esse vídeo, na descrição tem um link para baixar o arquivo batch que renomeia:

    https://www.youtube.com/watch?v=9_Sq7DMY2KM


    R. Bohner

    • Marcado como Resposta jwillian quarta-feira, 21 de abril de 2021 12:52
    quarta-feira, 21 de abril de 2021 06:31

Todas as Respostas

  • Olá

    Segue um link do fórum com uma solução

    https://social.technet.microsoft.com/Forums/pt-BR/6abce6f0-2877-4b1f-a199-c85b7f674b23/script-para-renomear-varios-arquivos-mantendo-o-nome-original-do-arquivo-e-fazer-apenas-uma?forum=scriptadminpt


    Olá, obrigado por participar da Comunidade TechNet. Paulo Costa | MCSE | MCSA | MCT | blog: http://paulocostati.com/ ______________________________________________________________ Por favor lembre-se marcar como resposta as respostas que solucionaram seu problema, é uma forma comum de reconhecer aquelas pessoas que te ajudaram, e faz com que seja mais fácil para os outros visitantes encontrar a solução depois. Microsoft oferece esse serviço de forma gratuita, com a finalidade de ajudar os usuários e ampliar a base de dados de conhecimentos relacionados com os produtos e tecnologias de Microsoft. Este conteúdo é proporcionado "tal qual" e não implica nenhuma responsabilidade por parte de Microsoft.

    • Marcado como Resposta jwillian quarta-feira, 21 de abril de 2021 12:52
    terça-feira, 20 de abril de 2021 15:39
  • Veja esse vídeo, na descrição tem um link para baixar o arquivo batch que renomeia:

    https://www.youtube.com/watch?v=9_Sq7DMY2KM


    R. Bohner

    • Marcado como Resposta jwillian quarta-feira, 21 de abril de 2021 12:52
    quarta-feira, 21 de abril de 2021 06:31
  • bom dia.estou uso scritp .bat  .como modelo so fiz  uma alteraçao. ser que 

    transformar script bat em vbscript

    @echo off
    chcp 1252 > nul
    SetLocal EnableDelayedExpansion
    Title Renomear Nomes Longos

    :: Informe o local da rede onde deseja renomear os arquivos:
    set Pasta=A:\PPF NOME GRADE

    :: Informe o comprimento máximo para Arquivos e Pastas
    set Max=20

    for /f "Delims=" %%a in ('dir /b /s "%Pasta%" ^|sort /r') do (
                                                                  set "NomeLongo=%%~nxa"
                                                                  set "Caminho=%%~dpa"
                                                                  set "TTrinta=!NomeLongo:~%Max%,1!"
                                                                  set "NomeCurto=!NomeLongo:~0,%Max%!"
                                                                  set "Ext=%%~xa"
                                                                  IF /i Defined TTrinta IF /i not exist "!Caminho!!NomeCurto!!Ext!" (ren "!Caminho!!NomeLongo!" "!NomeCurto!!Ext!") else (set "Cont=1"&call :Renomear)                                                              
                                                                 )
    exit

    :Renomear
    Set /a Cont+=1

    If not Exist "!Caminho!!NomeCurto! (%Cont%)!Ext!" (ren "!Caminho!!NomeLongo!" "!NomeCurto! (%Cont%)!Ext!") else (goto :Renomear)

    MOVE "A:\PPF NOME GRADE\*.ppf", "A:\PPF\"


    • Editado jwillian quarta-feira, 21 de abril de 2021 12:57
    quarta-feira, 21 de abril de 2021 12:56
  • Olá jwillian,

    Não entendi sua última mensagem poderia explicar melhor?

    Você quer transformar esse batch em VBScript?


    R. Bohner

    quarta-feira, 21 de abril de 2021 18:05
  • sim transformar  esse batch em VBScript.


    • Editado jwillian quarta-feira, 21 de abril de 2021 20:01
    quarta-feira, 21 de abril de 2021 20:01
  • ola. estou com problema não consigo mover para outra pasta vc pode me ajudar. este scrit que vc fez esta perfeito para renomear os aquivo. mais preciso mover para outra pasta.

    @echo off
    chcp 1252 > nul
    SetLocal EnableDelayedExpansion
    Title Renomear Nomes Longos

    :: Informe o local da rede onde deseja renomear os arquivos:
    set Pasta=\\Positivo\downloads\Teste

    :: Informe o comprimento máximo para Arquivos e Pastas
    set Max=15

    for /f "Delims=" %%a in ('dir /b /s "%Pasta%" ^|sort /r') do (
                                                                  set "NomeLongo=%%~nxa"
                                                                  set "Caminho=%%~dpa"
                                                                  set "TTrinta=!NomeLongo:~%Max%,1!"
                                                                  set "NomeCurto=!NomeLongo:~0,%Max%!"
                                                                  set "Ext=%%~xa"
                                                                  IF /i Defined TTrinta IF /i not exist "!Caminho!!NomeCurto!!Ext!" (ren "!Caminho!!NomeLongo!" "!NomeCurto!!Ext!") else (set "Cont=1"&call :Renomear)                                                              
                                                                 )
    exit

    :Renomear
    Set /a Cont+=1
    If not Exist "!Caminho!!NomeCurto! (%Cont%)!Ext!" (ren "!Caminho!!NomeLongo!" "!NomeCurto! (%Cont%)!Ext!") else (goto :Renomear)
    goto :EOF

    Exemplos

    MOVE "C:\Users\jwill\OneDrive\Área de Trabalho\Nova pasta (2)\*.*", "C:\Users\jwill\OneDrive\Área de Trabalho\Nova pasta (3)


    • Editado jwillian quinta-feira, 29 de abril de 2021 03:14
    quinta-feira, 29 de abril de 2021 03:12
  • @Jwillian, quanto a transformar em VBS o úncio jeito que eu sei e fazer isso manualmente. Quanto a mover você quer que os arquivos sejam renomeados e movidos ou apenas movidos?

    R. Bohner

    quinta-feira, 29 de abril de 2021 07:54
  • boa noite Ricardo Bohner

    Que os arquivos sejam renomeados e movidos para outra pasta

    exemplo:mover o aquivo .ppf  da pasta A:\ NOME GRADE para pasta A:\nove modificado

    MOVE >"A:\PPF NOME GRADE\*.ppf", "A:\PPF\"



    • Editado jwillian sexta-feira, 30 de abril de 2021 02:40
    sexta-feira, 30 de abril de 2021 02:31