Hallo Leute,

ich will einen Ordner verschieben, der im Zielverzeichnis evtl. schon vorhanden ist. Wenn vorhanden, soll er überschrieben werden. Ich bekomme aber eine Fehlermeldung.

Dim strFirma
Dim strUnterordner
Dim FSO As Object

Set FSO = CreateObject("Scripting.Filesystemobject")
strFirma = "Siemens AG"
strUnterordner = "_weggeschickte Bewerbungen"
FSO.MoveFolder ThisWorkbook.Path & "\" & strFirma, _
ThisWorkbook.Path & strUnterordner & "\", True

Mit dem TRUE sollte das doch eigentlich funktionieren.