Private Sub cmdNeueÜbergabe_Click(sender As System.Object, e As System.EventArgs) Handles cmdStepÜbergabe.Click
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim Datnam As String
FromPath = txt1.Text
ToPath = txt2.Text
DatNam = Dir(FromPath & "Kunden*.step")
FSO = CreateObject("scripting.filesystemobject")
If Not FSO.FolderExists(ToPath & "\3D_Oberflächendaten\") Then
FSO.CreateFolder(ToPath & "\3D_Oberflächendaten\")
End If
FSO.CopyFile(Source:=FromPath & "\*\" & DatNam, Destination:=ToPath & "\3D_Oberflächendaten\")
MessageBox.Show("Ausgeführt")
End Sub