VBA - Alle Dateien in Verzeichnis umbenennen

JonnyHeart · 30.03.2009

Hallo Zusammen,

ich möchte in einem von mir vorgegebenen Verzeichnis alle enthaltenen Dateien (egal wie die Endung lautet..) umbenennen und
den Textteil 20090101 - Halllo - vornewegsetzen lassen. Die Anzahl der Dateien im Verzeichnis variiert.

bsp: alter Dateiname MÜLLERMILCH

neuer Dateiname nach Umbenennung 20090101 - Halllo - MÜLLERMILCH

Vielen DAnk vorab & Gruß

JONNY

Spitzwegerich · 30.03.2009

Im Windows Explorer können mehrere Dateien gleichzeitig umbenannt werden. Man wählt alle Dateien die umbenannt werden sollen aus, und klickt mit der rechten Maustaste auf die erste Datei. Nun wählt man den Menüpunkt Umbenennen, und gibt der Datei den gewünschten Namen.

Alle ausgewählten Dateien werden mit dem eingegebenen Dateinamen und zusätzlicher aufsteigender Nummerierung umbenannt.

(thx @ KillerBee)

http://www.wintotal.de/Tipps/?id=595

JonnyHeart · 30.03.2009

Hallo Zusammen, wie die Überschrift bereits vermuten lässt suche ich nach Einer Lösung mit VBA.

Ich erstelle in Excel diverse Dateien, die in einem Verzeichnis abgelegt sind , und in diesem umbenannt werden sollen.

Beispielsweise heissen die Dateien: Musik, Billard, Sport etc.

Nach dem Umbenennen wird allen Dateien folgendes vorangestellt: 20090330 - Pending -

Ergebnis ist die Kombi aus den oben genannten Dateien und dem vorangestellten:

20090330 - Pending - Musik.txt
20090330 - Pending - Billard.xls

etc.

Mfg
JONNY

Mostbirne · 01.04.2009

Kann man so machen:

Code:

folder = c:\test
prefix = 20090330 - Pending - 
Set fso = CreateObject(Scripting.FileSystemObject)
For Each file In fso.GetFolder(folder).Files
 fn = file.Name
 If Left(fn, Len(prefix)) &lt;> prefix Then
 file.Name = prefix &amp; fn
 End If
Next

Ist eigentlich VBS, läuft aber auch als VBA.

PS:
Die Abfrage nach bereits umbenannten Dateien wird hier unbedingt benötigt, da durch das Umbenennen von Dateien der Dateilistingarray anscheinend manchmal durcheinander kommt, während das Programm noch durch denselben durchgeht. Ansonsten müsste man das in 2 Arbeitsschritte aufteilen.

VBA - Alle Dateien in Verzeichnis umbenennen

JonnyHeart

Spitzwegerich

JonnyHeart

Mostbirne

VBA - Alle Dateien in Verzeichnis umbenennen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums