Thema Datum  Von Nutzer Rating
Antwort
Rot Datei in Unterordner finden und kopieren
08.02.2019 14:20:28 Thomas Gärtner
NotSolved
08.02.2019 16:32:26 Gast89629
NotSolved
08.02.2019 19:42:46 Flotter Feger
NotSolved
08.02.2019 22:20:17 Gast57309
NotSolved
08.02.2019 22:49:26 Flotter Feger
NotSolved
11.02.2019 08:25:49 Gast55668
NotSolved
11.02.2019 08:29:18 Gast36014
NotSolved
11.02.2019 13:31:30 Flotter Feger
NotSolved
12.02.2019 07:56:10 Gast55616
NotSolved

Ansicht des Beitrags:
Von:
Thomas Gärtner
Datum:
08.02.2019 14:20:28
Views:
140
Rating: Antwort:
  Ja
Thema:
Datei in Unterordner finden und kopieren

Hallo liebes Forum,

 

ich benötige dringend Hilfe. Seit einer Woche versuche ich mich berufsbedingt erstmal mit VBA. Der Erfolg ist angesichts der kurzen Zeit ok, aber ich habe ein Problem, an dem ich seit 2 Tagen scheitere. (Nochmals: bitte erklärt mir Sachen wie einem Kleinkind, ich habe echt so gut wie keine Ahnung.)

Folgendes Thema: Ich habe in meinem kleinen Programm 2 Textfelder, die ich mit FolderBrowseDialog ausfülle.

Erstes Feld beispielsweise mit "C:\test\OrdnerXY", zweites mit "D:\Stammdaten\OrdnerXYz".
Aus diesen Pfaden starte ich diverse Operationen, welche gut  funktionieren (it´s magic, at least 4 me).
Hierbei wird jetzt in einem Unterordner von "C:\test\OrdnerXY" eine Datei erstellt (an dem Ablageort kann ich leider nichts ändern.)

Diese Datei möchte ich nun in "D:\Stammdaten\Ordner0815" kopieren, und zwar in einen Unterordner der ggf. noch nicht existent ist (das klappt bereits).

Ich bekomme es nicht hin... anbei der Code mit dem ich es mehr als Laienhaft versuche.

Ich wäre so undenkbar seelig wenn mir einer helfen könnte.
MFG Thomas Gärtner

 

    Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs)

        Dim FSO As Object
        Dim ToPath As String
        Dim FromPath As String
        Dim DatNam As String


        FromPath = txt1.Text & "\"                            '<< Pfad aus dem Kopiert werden soll (aus Textfeld, gespeist aus FolderBrowserDialog )
        ToPath = txt2.Text & "\"                              '<< Pfad in den Kopiert werden soll (aus Textfeld, gespeist aus FolderBrowserDialog )
        DatNam = Dir(FromPath & "*Kunden*.step")              '<< Plan: Sucht in Ordner & Unterordner aus FromPath=txt1.Text alle Dateien mit Typ *.step und mit "Kunden" beginnend

        FSO = CreateObject("scripting.filesystemobject")                   '<< Suche im Pfad nach Ordner. Wenn keiner da ist, dann erstellen.
        If Not FSO.FolderExists(ToPath & "\3D_Oberflächendaten\") Then
            FSO.CreateFolder(ToPath & "\3D_Oberflächendaten\")
        End If

        FileCopy(DatNam, ToPath)                        '<< Hier hört es bei mir schon auf...

    End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei in Unterordner finden und kopieren
08.02.2019 14:20:28 Thomas Gärtner
NotSolved
08.02.2019 16:32:26 Gast89629
NotSolved
08.02.2019 19:42:46 Flotter Feger
NotSolved
08.02.2019 22:20:17 Gast57309
NotSolved
08.02.2019 22:49:26 Flotter Feger
NotSolved
11.02.2019 08:25:49 Gast55668
NotSolved
11.02.2019 08:29:18 Gast36014
NotSolved
11.02.2019 13:31:30 Flotter Feger
NotSolved
12.02.2019 07:56:10 Gast55616
NotSolved