Thema Datum  Von Nutzer Rating
Antwort
07.01.2016 08:39:24 Gast26179
NotSolved
07.01.2016 13:08:49 Gast10696
NotSolved
07.01.2016 13:22:24 Gast68855
NotSolved
07.01.2016 14:06:48 Raffi95
NotSolved
07.01.2016 14:14:28 Gast89904
NotSolved
07.01.2016 14:17:24 Raffi95
NotSolved
07.01.2016 14:22:52 Gast748
NotSolved
07.01.2016 14:26:32 Raffi95
NotSolved
Rot Kopie einer Datei per Button
 07.01.2016 14:33:49 Gast43321
NotSolved
07.01.2016 14:41:18 Gast50201
NotSolved
07.01.2016 14:45:48 Gast88313
NotSolved
07.01.2016 15:31:15 Gast47988
NotSolved

Ansicht des Beitrags:
Von:
Gast43321		 Datum:
07.01.2016 14:33:49		 Views:
774		 Rating:
     
Antwort:
  Ja
Thema:
Kopie einer Datei per Button

Hier werden in einer anderen Funktion Ordner angelegt.

Private Sub ComboBox1_Change()

Dim Ord As String
Dim Txt As String
Dim OrdnerNeu As String
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Txt = TextBox1
Ord = "C:\Test\" & Txt & "\" & ComboBox1
If FSO.folderexists(Ord) = True Then
MsgBox "Material bereits vorhanden"
CommandButton2.Visible = True
Exit Sub
Else
MkDir Ord
MsgBox "Ordner " & Ord & " angelegt"
End If
CommandButton2.Visible = True
End Sub

Das funktioniert auch ganz gut.

Im nächsten Step sollen dann Dateien in den Ordner kopiert werden wie zu beginn beschrieben.
Hier komme ich dann leider nicht weiter.....

Nach wie vor bleibt er en dieser Stelle stehen: "myFSO.CopyFile varDatei, Ord & varDatei"

Private Sub CommandButton2_Click()

    Dim varDatei As Variant
    Dim Ord As String
    Dim Txt As String
    Dim Txt2 As String
    
    
    Txt = TextBox1.Value
    Txt2 = ComboBox1.Value
    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

 

Ihre Antwort
  • 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: Name: Email:



  • 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
07.01.2016 08:39:24 Gast26179
NotSolved
07.01.2016 13:08:49 Gast10696
NotSolved
07.01.2016 13:22:24 Gast68855
NotSolved
07.01.2016 14:06:48 Raffi95
NotSolved
07.01.2016 14:14:28 Gast89904
NotSolved
07.01.2016 14:17:24 Raffi95
NotSolved
07.01.2016 14:22:52 Gast748
NotSolved
07.01.2016 14:26:32 Raffi95
NotSolved
Rot Kopie einer Datei per Button
 07.01.2016 14:33:49 Gast43321
NotSolved
07.01.2016 14:41:18 Gast50201
NotSolved
07.01.2016 14:45:48 Gast88313
NotSolved
07.01.2016 15:31:15 Gast47988
NotSolved