verfaßt von effeff, Ostfriesland, 12.10.2009, 12:03:48
> > Naja, machste das halt mit dem FSO. Das sollte trotzdem einigermaßen
> > schnell gehen.
> Ja wird mir nichts anderes übrig bleiben. Allerdings habe ich da im
> Hinterkopf, dass ein Umbenennen von Gross- auf Kleinschreibung (ohne
> sonstiger Änderung) nicht funktioniert.
Wie benennst du die Dateien denn um? Mit dem FSO habe ich es so getestet und es funktioniert:
Dim fso
dim fld
dim fil
dim DateiAlt
dim DateiNeu
Dim Ordner
Ordner=\"d:\\fuchsitest\\\"
Set fso=createobject(\"Scripting.FileSystemObject\")
Set fld=fso.GetFolder(Ordner)
for Each fil in fld.files
DateiAlt=ordner & fil.name
DateiNeu=ordner & lcase(fil.name)
fso.movefile dateialt, Dateineu
next
--
Gruß,
ff
Möge TUX mit dir sein!
gesamter Thread: