Guten Morgen Sabina,
ich komme nicht weiter:
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 '<< Change
ToPath = txt2.Text '<< Change
DatNam = Dir(FromPath & "Kunden*.step") '<< Change
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
Bekomme Fehlermeldung und verstehe nicht, was noch fehlt.
Fehlermeldung COMException wurde nicht behandelt.
Ausnahme von HRESULT: 0x800A0034 (CTL_E_BADFILENAMEORNUMBER)
Ich könnte verzweifeln.
LG Thomas
|