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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 125222
Url: https://administrator.de/contentid/125222
Ausgedruckt am: 22.11.2024 um 03:11 Uhr
4 Kommentare
Neuester Kommentar
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
