Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.02.2019 14:20:28 |
Thomas Gärtner |
|
|
|
08.02.2019 16:32:26 |
Gast89629 |
|
|
|
08.02.2019 19:42:46 |
Flotter Feger |
|
|
|
08.02.2019 22:20:17 |
Gast57309 |
|
|
|
08.02.2019 22:49:26 |
Flotter Feger |
|
|
Datei in Unterordner finden und kopieren |
11.02.2019 08:25:49 |
Gast55668 |
|
|
|
11.02.2019 08:29:18 |
Gast36014 |
|
|
|
11.02.2019 13:31:30 |
Flotter Feger |
|
|
|
12.02.2019 07:56:10 |
Gast55616 |
|
|
Von:
Gast55668 |
Datum:
11.02.2019 08:25:49 |
Views:
549 |
Rating:
|
Antwort:
|
Thema:
Datei in Unterordner finden und kopieren |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.02.2019 14:20:28 |
Thomas Gärtner |
|
|
|
08.02.2019 16:32:26 |
Gast89629 |
|
|
|
08.02.2019 19:42:46 |
Flotter Feger |
|
|
|
08.02.2019 22:20:17 |
Gast57309 |
|
|
|
08.02.2019 22:49:26 |
Flotter Feger |
|
|
Datei in Unterordner finden und kopieren |
11.02.2019 08:25:49 |
Gast55668 |
|
|
|
11.02.2019 08:29:18 |
Gast36014 |
|
|
|
11.02.2019 13:31:30 |
Flotter Feger |
|
|
|
12.02.2019 07:56:10 |
Gast55616 |
|
|