Liebe Excel VBA-Gemeinde,
ich benötige wieder einmal Eure Hilfe.
Ich möchte einen Ordner "Vorlage" mit Inhalten, der sich im Verzeichnis "G:\ABC\" befindet per VBA kopieren und im gleichen Verzeichnis "G:\ABC\ mit neuem Namen, der sich auf einem Tabellenblatt befindet samt Inhalte (Unterordner und Dateien) ablegen. Habe ein entsprechendes Makro aus dem Forum angepasst. Nun erhalte immer die Fehlermeldung 76 - Pfad nicht gefunden!. Merkwürdiger Weise wird der Ordner zwar angelegt, jedoch ohne Inhalte.
Bin am Verzweifeln ...
Hier der verwendete Code:
Sub
Dim filesystem As Object
Dim strName As String
strName = Range("K5") 'Name für neues Verzeichnis steht in dieser Zelle
Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder "G:\ABC\Vorlage", "G:\ABC\" & strName
Set filesystem = Nothing
End Sub
Was stimmt hier nicht?
LG Horst
PS:
Liegt es möglicher Weise an Excel 365?