Hallo zusammen,

da mein Beitrag auf grün gesetzt wurde obwohl das problem nicht gelöst ist muss ich erneut fragen.....

ich versuche gerade einen Code zu "Basteln" der mir Dateien kopiert.

Der Zielordner ist nicht konstant.

Die Quelldatei soll uber den Dateibrowser gewählt werden.(Im bessten Fall gleich mehrere auf einmal)

Leider bekomme ich immer wieder eine Fehlermeldung......

Private Sub CommandButton2_Click()

    Dim varDatei As Variant
    Dim Ord As String
    Dim Txt As String
    Dim Txt2 As String
    Txt = TextBox1.Text
    Txt2 = ComboBox1.Text
    Ord = "C:\Test\" & Txt & "\" & Txt2 & "\"

    varDatei = Application.GetOpenFilename()
    If varDatei = False Then
        MsgBox "Es wurde keine Dateie ausgewählt.", vbInformation
    Else
        MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
                   
        Dim myFSO As Object
        Set myFSO = CreateObject("Scripting.FileSystemObject")
        myFSO.CopyFile varDatei, Ord & varDatei
                  
    End If

End Sub