Auf der Suche nach dem kürzesten Weg um eine Datei von O: nach C: zu kopieren und unter anderem Namen zu speichern, habe ich folgenden Code im Netz gefunden:
Sub KopiereOrdner()
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder("O:\Hugo 2010\Hugo\Hugo\Hugoneu")
fld.Copy "C:\Hugo 2010\Tempkalk", True 'vorhandenen Ordner ggfls überschreiben
End Sub
Obwohl die Verzeichnisse auf meinem PC so vorhanden sind, wird bei Set fld = fso.GetFolder("O:\Hugo 2010\Hugo\Hugo\Hugoneu")eine Fehlermeldung angezeigt: Laufzeitfehler 76, Pfad nicht gefunden. Auch das einfügen von .xlsm hat nichts gebracht.Danke für eure Hilfe.
Ein ganz grosses Dankeschön an alle die Jahraus, Jahrein für andere Ihre Wissen zur Verfügung stellen und immer bereit sind geduldig zu Helfen. Schöne Weihnachten Benedikt