| Forum: VB.NET |
Thema:
Selektierte Filelistboxeinträge als datei kopieren |
Von:
G. Guest (
06.09.2005 10:07) |
Auf einem Formular habe ich eine Drivelistbox, dirlistbox und eine filelistbox miteinander verschachtelt. Nun möchte ich die "selecteditems" der Filelistbox (als Dateien) unter eine bereits existierende Pfadangabe aus einder Textbox und einen Standartnamen, welcher sich fortlaufend anhand der Schleife mit der Variablen x kopieren.
Das Auslesen des Sourcepfad funktioniert, leider wird immer nur die erste Datei (selecteditem) in der Filelistbox x mal kopiert und umbennant.
Hier der Code:
Private Sub CopyData()
Dim x As Long
Dim dateicopy As System.IO.File
Dim pfadstart As String = DirListBox1.Path
Dim dateistart As String = FileListBox1.SelectedItem
Dim pfadziel As String = TextBox1.Text
Dim dateiziel As Integer
For x = 0 To FileListBox1.SelectedItems.Count - 1
If FileListBox1.SelectedItem(x) Then
dateiziel = TextBox2.Text & x
dateicopy.Copy(pfadstart & "\" & dateistart, pfadziel & "\" & dateiziel)
End If
Next
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
