none
Renomear Pastas e ARQUIVOS RRS feed

  • Pergunta

  • Bom dia senhores.

    Estamos implantando Sistema de Qualidade na empresa e uma das exigências da norma de Certificação é que exista um padrão para pastas e arquivos, no meu caso especificamente o padrão seria Pastas Com Primeira Letra Maiúscula e ARQUIVOS COM TODAS LETRAS MAIÚSCULAS.  Existe algum programa, vbscript ou bat que ajude a fazer isso recursivamente?

    Desde Já Agradeço.

    Ex de pastas: C:\Usuário\Pasta do Usuário

    Ex de Arquivos: C:\ARQUIVOS DE USUARIO.exe

    quinta-feira, 27 de abril de 2017 14:32

Todas as Respostas

  • Bom dia!

    É só você executar esse script em .vbs, mais primeiro você cria um arquivo .txt cola o código abaixo dentro e salvar como a extensão .vbs e executar na pasta que deseja renomear os arquivos.   

    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each f In fso.GetFolder(".").Files
      f.Name = UCase(fso.GetBaseName(f)) & "." & fso.GetExtensionName(f) & "_"
      f.Name = Left(f.Name, Len(f.Name)-1)
    Next

    terça-feira, 16 de julho de 2019 11:50