Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Dateien umbenennen mit VBA

51 views
Skip to first unread message

Mike Weniger

unread,
Nov 3, 2002, 4:18:14 AM11/3/02
to
Hallo Excel Liebhaber,

auch wenn ich hier ein wenig off topic bin.
Vielleicht könnt ihr mir trotzdem helfen.

ich möchte in einem bestimmten Verzeichnis (c:\Eigene Dateien\Beispiel\)
alle Dateien ändern die einem bestimmten Muster entsprechen.

Die Datei heißt z.B.: beispiel001.txt

Ich möchte die Datei jetzt mittels VBA in "Beispiel.001" umbenennen.
Also einen Zusatz (001) Löschen und die Dateiendung als Zusatz anhängen.

Ist dies mittels VBA möglich ?

Danke im vorraus


Mike


Frank Arendt-Theilen

unread,
Nov 3, 2002, 10:50:36 AM11/3/02
to
Hallo Mike,
als ein Beispiel wie folgt:

Sub Umbenennen()
'Verweis auf Microsoft Scripting Runtime setzen
Dim objFS As Object
Dim objDatei As Object
Dim strDummy As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objDatei = objFS.GetFile("C:\Beispiel001.txt")
strDummy = Left(objDatei.Name, InStr(1, objDatei.Name, ".") - 1)
objDatei.Name = Left(strDummy, Len(strDummy) - 3) & "." &
Right(strDummy, 3)
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Mike Weniger

unread,
Nov 3, 2002, 11:45:37 AM11/3/02
to
Hallo Frank

vielen Dank für deine Antwort.
Das funktioniert schon mal, nach ein paar individuellen Einstellungen.
Eigentlich hätte ich aber gern, das alle Dateien die in diesem Verzeichnis
stehen und die Endung .txt haben so geändert werden. Hast du vielleicht noch
eine kleine Erweiterung für mich


Danke im vorraus

Mike

"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:6h1asu09lbejdkimt...@4ax.com...

Frank Arendt-Theilen

unread,
Nov 3, 2002, 2:22:30 PM11/3/02
to
Hallo Mike,
unter der Adresse www.xl-faq-de/bas/DateienUmbenennen.bas
kannst du dir Bas-Datei herunterladen.
Im VBE über Menü Datei/Datei importieren importierst du die Bas-Datei;
dann steht dir der Code zur Verfügung.

Frank Arendt-Theilen

unread,
Nov 3, 2002, 2:34:32 PM11/3/02
to
Sorry, Schreibfehler!
Die Adresse lautet: www.xl-faq.de/bas/DateienUmbenennen.bas

MfG Frank

Mike Weniger

unread,
Nov 3, 2002, 2:47:40 PM11/3/02
to
Danke für die super Tipp´s

Mike

"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag

news:pfuasuk0rujkm36bv...@4ax.com...

Hans Zuelch

unread,
Nov 5, 2002, 6:33:29 PM11/5/02
to

Hallo,

ich weiß nicht ob es alle Puristen zufriedenstellen würde, aber ich
mache es etwa so:

Sub umbenennen()
k = 8
ZuÖffnendeDatei = Application.GetOpenFilename
Dat$ = Dir(Dum$)
Do While Dat$ <> ""
If Right$(Dat$, 4) = ".txt" Then
Datneu$ = Left$(Dat$, k) & "." & Mid$(Dat$, k+1, 3)
Name Dat$ As Datneu$
End If
Dat$ = Dir
Loop
End Sub

Grüsse
Hans

0 new messages