4
Endungen von Dateien in Ordner umbenennen in VBS
Hallo zusammen,
bin leider ein Newbie in Sachen VBS und bräuchte mal Eure Hilfe.
Alle Dateien in einem bestimmten Ordner mit der Endung *.err sollen in *.msg umbenannt werden.
D.h. der Dateiname bleibt gleich, nur die Endung soll geändert werden.
Könnt ihr mir da weiterhelfen?
Danke und Gruß
duffy6
bin leider ein Newbie in Sachen VBS und bräuchte mal Eure Hilfe.
Alle Dateien in einem bestimmten Ordner mit der Endung *.err sollen in *.msg umbenannt werden.
D.h. der Dateiname bleibt gleich, nur die Endung soll geändert werden.
Könnt ihr mir da weiterhelfen?
Danke und Gruß
duffy6
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 125222
Url: https://administrator.de/contentid/125222
Printed on: April 23, 2024 at 07:04 o'clock
4 Comments
Latest comment
Muß es vbs sein oder darf es auch zb. ein Batch sein?
geTuemII
geTuemII
Mit Batch hab ich schon gesehen wäre es ja ein Einzeiler: "rename *.err *.msg"
Problem ist, dass nach dem umbenennen noch eine Suchen/Ersetzen Aktion laufen soll, in der in allen msg Dateien der String "name1" in "name2" geändert werden soll.
Und das wird wohl mit Batch nicht klappen, oder?
Problem ist, dass nach dem umbenennen noch eine Suchen/Ersetzen Aktion laufen soll, in der in allen msg Dateien der String "name1" in "name2" geändert werden soll.
Und das wird wohl mit Batch nicht klappen, oder?
Doch, das geht. Ich habe momentan keinen Codeschnipsel zur Hand, glaube aber, Hilfe naht. Ansonsten muß ich morgen mal in mich gehen.
geTuemII
geTuemII
Hallo geTuemII und duffy6!
In der Zwischenzeit mal die VBS-Variante:
Es wird vorausgesetzt, dass der angegebene Ordner auch existiert sowie dass der Dateityp in "Von" in Kleinbuchstaben geschrieben ist.
Grüße
bastla
In der Zwischenzeit mal die VBS-Variante:
Ordner = "D:\Dein Ordner"
Von = "err"
Nach = "msg"
Set fso = CreateObject("Scripting.FileSystemObject")
For Each File In fso.GetFolder(Ordner).Files
If LCase(fso.GetExtensionName(File.Path)) = Von Then File.Name = fso.GetBaseName(File.Path) & "." & Nach
NextGrüße
bastla
