none
transformar script bat em vbscript RRS feed

  • Pergunta

  • tenho este scritp em .bat gostaria de transformar  .vbs .reduz o nome e move o arquivo 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=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\"

    ele esta .bat gostaria de deixar ele em vbs

    quarta-feira, 21 de abril de 2021 12:46

Todas as Respostas

  • Não existe ferramenta que converte .bat em .vbs automaticamente no caso você teria que escrever um código em VBS que faça a mesma coisa que o bat?

    Qual seria o motivo de você querer converter?


    R. Bohner

    quarta-feira, 21 de abril de 2021 18:43