Hallo,
bin neu hier und hätte gern Hilfe bei folgenden VB-Script.
Das funktioniert tatellos.
Hätte es aber gern, wenn alle Unterordner mit einbezogen würden.
Wie wäre das zu lösen?
Wäre nett, wenn mir jemand helfen könnte.
wolf56
--------------------------------------------------------------------
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
Set fd = fso.GetFolder(objArgs(0))
Set fc = fd.Files
For Each f1 in fc
f1.Name = Replace(f1.Name, "Ä", "Ae")
f1.Name = Replace(f1.Name, "Ö", "Oe")
f1.Name = Replace(f1.Name, "Ü", "Ue")
f1.Name = Replace(f1.Name, "ä", "ae")
f1.Name = Replace(f1.Name, "ö", "oe")
f1.Name = Replace(f1.Name, "ü", "ue")
f1.Name = Replace(f1.Name, "ß", "ss")
Next
WScript.Echo "Änderungen abgeschlossen!"
WScript.Quit
--------------------------------------------------------------
bin neu hier und hätte gern Hilfe bei folgenden VB-Script.
Das funktioniert tatellos.
Hätte es aber gern, wenn alle Unterordner mit einbezogen würden.
Wie wäre das zu lösen?
Wäre nett, wenn mir jemand helfen könnte.
wolf56
--------------------------------------------------------------------
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
Set fd = fso.GetFolder(objArgs(0))
Set fc = fd.Files
For Each f1 in fc
f1.Name = Replace(f1.Name, "Ä", "Ae")
f1.Name = Replace(f1.Name, "Ö", "Oe")
f1.Name = Replace(f1.Name, "Ü", "Ue")
f1.Name = Replace(f1.Name, "ä", "ae")
f1.Name = Replace(f1.Name, "ö", "oe")
f1.Name = Replace(f1.Name, "ü", "ue")
f1.Name = Replace(f1.Name, "ß", "ss")
Next
WScript.Echo "Änderungen abgeschlossen!"
WScript.Quit
--------------------------------------------------------------
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „wolf56“ ()