Hallo Forum,
auch wenn dieser Thread schon etwas älter ist, mit der folgenden Funktion kann man den permission denied Fehler umgehen. Notes kann leider keine geöffneten Dateien kopieren... Das Betriebssystem jedoch schon.
Mit dem folgenden Code kann man eine(!) Datei von A nach B kopieren. Kein Problem wenn sie in A geöffnet ist. Es müssen jedoch der Quellordner aus A und der Zielordner für B bereits existieren.
Sub CopyFile(strSourcePath As String, strTargetPath As String)
' On Error Goto Errorhandler
Dim fso
Dim file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(strSourcePath)
file.copy (strTargetPath)
Exit Sub
'ErrorHandler:
' Errorhandler nach Wunsch
' Exit Sub
End Sub
Wenn auch nur ein kleiner Tipp, ich hoffe er bringt irgendwem etwas.
Bis dann,
-Moritz
PS: Mit "fso.copyfile "c:\temp\a\*.*","c:\temp\b", false" lassen sich mehrere (auch geöffnete) Dateien kopieren. Der letzte bool Parameter zeigt dabei an, ob in B überschrieben werden soll oder nicht.
