RENOMEAR TODOS OS ARQUIVOS EM UM DIRETORIO COM VBA
Boa tarde , preciso renomear arquivos contidos em uma pasta , para ilustrar minha necessidade abaixo mostro minha necessidade.
Como exemplo tenho uma pasta localizada em C:\, o nome da pasta seria [Ô]Artigos[Ô], dentro dela existem varios arquivos com varios formatos, preciso manter o nome atual e a extensão , acrescentando apenas no inicio do nome do arquivo o nome da pasta .
Assim ficaria:
Nome antigo do arquivo:
Planilha.xls
Nome novo do arquivo:
Artigo-Planilha.xls
Nome antigo do arquivo:
Figura.bmp
Nome novo do arquivo:
Artigo-Figura.bmp
..... e assim com todos os arquivos da pasta.
Gostaria que a macro não ficasse restrita a uma pasta , assim acho que seria necessário usar o comando que acho deve ser GetOpenFileName
desta forma a macro fica totalmente funcional.Ao clicar selecioo a pasta e entao varre os arquivos renomeando-os acrescentando o nome da pasta no inicio.
Obrigado antecipadamente
Marcelo
Como exemplo tenho uma pasta localizada em C:\, o nome da pasta seria [Ô]Artigos[Ô], dentro dela existem varios arquivos com varios formatos, preciso manter o nome atual e a extensão , acrescentando apenas no inicio do nome do arquivo o nome da pasta .
Assim ficaria:
Nome antigo do arquivo:
Planilha.xls
Nome novo do arquivo:
Artigo-Planilha.xls
Nome antigo do arquivo:
Figura.bmp
Nome novo do arquivo:
Artigo-Figura.bmp
..... e assim com todos os arquivos da pasta.
Gostaria que a macro não ficasse restrita a uma pasta , assim acho que seria necessário usar o comando que acho deve ser GetOpenFileName
desta forma a macro fica totalmente funcional.Ao clicar selecioo a pasta e entao varre os arquivos renomeando-os acrescentando o nome da pasta no inicio.
Obrigado antecipadamente
Marcelo
Caetano,
é bem simples isso o que você quer fazer.
Simplesmente, liste os arquivos do diretório (com um loop), e em cada item, execute o comando para renomear:
é bem simples isso o que você quer fazer.
Simplesmente, liste os arquivos do diretório (com um loop), e em cada item, execute o comando para renomear:
Citação:Name [Ô]c:\Artigos este.xml[Ô] As [Ô]c:\Artigos\Artigos-teste.xml[Ô]
Foi nisso que eu pensei fazer um loop,esta cciraçãoeu vi no site do Macoratti, o problema é que não sei como fazer este loop, nem como tirar apenas o nome da pasta para acresenta-la na frente do nome do arquivo.
Obrigado
Obrigado
Tópico encerrado , respostas não são mais permitidas