Hallo zusammen,

ich habe ein Problem ich möchte mit VBA auf dem Netzwerk von Werk Files von ein Ordner in ein andere kopieren.
Ich habe schon ein teil Lösung gefunden, aber es geht auf Fehler Laufzeit Fehler 76 "pfad nicht gefunden"
Ich denke es hat damit zutun das es alles auf dem Netzwerk passieren sollte.

Ich möchte eure Hilfe bieten.

Sub KopierenUndNeuerOrdner()

Dim sourceFolder As String, targetFolder As String
Dim Datei1 As String
Dim Datei2 As String
Dim Datei3 As String
Dim Datei4 As String
Dim Datei5 As String
Dim Datei6 As String
Dim Datei7 As String
Dim Datei8 As String
Dim FSO As New FileSystemObject


Datei1 = Sheets("Inventur Datei Aktualisieren").Range("C5").Value
Datei2 = Sheets("Inventur Datei Aktualisieren").Range("C7").Value
Datei3 = Sheets("Inventur Datei Aktualisieren").Range("C9").Value
Datei4 = Sheets("Inventur Datei Aktualisieren").Range("C11").Value
Datei5 = Sheets("Inventur Datei Aktualisieren").Range("C13").Value
Datei6 = Sheets("Inventur Datei Aktualisieren").Range("C15").Value
Datei7 = Sheets("Inventur Datei Aktualisieren").Range("C17").Value
Datei8 = Sheets("Inventur Datei Aktualisieren").Range("C19").Value
Datei9 = Sheets("Inventur Datei Aktualisieren").Range("C21").Value


' Pfad zum Quellordner (den Ordner, aus dem kopiert werden soll)
sourceFolder = "N:\Sample von Sandor\Digital Inventur"

' Pfad zum Zielordner (der neue Ordner)
targetFolder = "N:\Transfer\Digital inventur\" & GetFormattedDate

' Prüfen und erstellen des Zielordners, falls er noch nicht existiert
If Not Dir(targetFolder, vbDirectory) > "" Then
MkDir targetFolder
End If

' Kopieren aller Dateien aus dem Quellordner in den Zielordner
' **Achtung:** Diese Zeile kopiert alle Dateien, ohne Unterordner zu berücksichtigen.
' Für das Kopieren von Unterordnern und deren Inhalt ist eine rekursive Funktion erforderlich.
FSO.CopyFile sourceFolder & "\" & Datei1, targetFolder & "\"

MsgBox "Kopieren abgeschlossen!"

End Sub
Function GetFormattedDate() As String
Dim today As Date
today = Date

' Formatieren des Datums im gewünschten Format
GetFormattedDate = Format(today, "dd_mm_yyyy")
End Function