VBA namen veranderen

[Bapexx]

Hallo allemaal,

Ik moet van een groot aantal bestanden de naam veranderen. Dit wil ik doen d.m.v. een macro. Nou zou dat opzich niet een heel groot probleem zijn. Echter moeten alleen de eerste 6 tekens in de naam veranderd worden. De rest moet hetzelfde blijven. Hoe kan ik dit het beste aanpakken?

Alvast bedankt!

 

[krolik]

Hierbij een voorbeeld:

http://www.bulkrenameutility.co.uk/Main_Intro.php

Verder via Google nog meer te vinden.
Zelf werk ik met 'Total Commander', daarin zit o.a. een tool om vele bestanden naar wens
in 1x te hernoemen.

 

[snb]

Je informatie is nogal zuinig...
Zoek liever in dit forum dan via google.

sub snb()
  c00="E:\OF\"
  c01=dir(c00 & "*.xls")

  do until c01=""
    name c00 & c01 As c00 & "nieuwe" & mid(c01,7)
    c01=dir
  loop
End sub