|
Hallo zusammen,
ich bin momentan leider überfordert.
Ich versuche ein Makro zu erstellen, welches per Commandbutton den Dateibrowser öffnet, und die von mir markierten Dateien in ein zuvor angelegtes Verzeichniss kopiert.
Da anlegen des Verzeichnis mache ich wie folgt:
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
MkDir Ord
MsgBox "Ordner " & Ord & " angelegt"
CommandButton2.Visible = True
End Sub
Mit dem CommandButton2 soll nun der Dateibrowser geöffnet werden.
Dort will ich verschiedene Dateien auswählen, die dann in das zuvor angelegte Verzeichniss kopiert werden.
Private Sub CommandButton2_Click()
Dim varDatei As Variant
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Es wurde keine Dateie ausgewählt.", vbInformation
Else
MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
End If
End Sub
Das Anlegen der Pfades und Öffnen des Browsers hab ich.
Kann mir wer mit dem Rest helfen?
Vielen Dank!!!
|