69304
29.03.2009, aktualisiert um 15:09:09 Uhr
6146
2
0
Visual Basic 2008 Kopiert nur eine Datei aus ListBox-Inhalt anstatt alle
For-Schleife aus ListBox mit CopyFile()
Hallo!
Ich bin gerade dabei einen Datei Umbenenner zu basteln. Hab auch schon soweit alles fertig.
Zum Funktions-Prinzip
Verzeichnis wird ausgelesen und in ListBox ausgegeben, danach wird das Verzeichnis noch Mal eingelesen und über div. String-Replace-Routinen geschickt und in einer zweiten ListBox als "Vorschau" ausgegeben.
Das Problem ist, dass dann beim kopieren...
Vom Prinzip in DOS: copy dateialt.txt dateineu.txt
Mein Code dazu:
Das Problem ist nun, dass er immer nur die erste Datei des Verzeichnisses wie gewünscht kopiert.
Hat da wer ´ne Idee?
Gruß,
René.
P.S.: Wenn wir gerade dabei sind, alternativ würde es mir auch reichen, die Datei einfach nur umzubenennen. Move() geht leider nicht.
Hallo!
Ich bin gerade dabei einen Datei Umbenenner zu basteln. Hab auch schon soweit alles fertig.
Zum Funktions-Prinzip
Verzeichnis wird ausgelesen und in ListBox ausgegeben, danach wird das Verzeichnis noch Mal eingelesen und über div. String-Replace-Routinen geschickt und in einer zweiten ListBox als "Vorschau" ausgegeben.
Das Problem ist, dass dann beim kopieren...
Vom Prinzip in DOS: copy dateialt.txt dateineu.txt
Mein Code dazu:
Private Sub cmdDo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDo.Click
Dim DateinameAlt As String
Dim DateinameNeu As String
If lstDateien.Items(0).ToString() = "" And lstNeu.Items(0).ToString() = "" Then
MsgBox("Noch keine Vorschau ausgeführt!", MsgBoxStyle.OkOnly Or MsgBoxStyle.Critical)
Exit Sub
End If
For i As Integer = 1 To lblZaehler.Text Step 1
DateinameAlt = txtPfad.Text & "\" & lstDateien.Items(0).ToString()
DateinameNeu = txtPfad.Text & "\" & lstNeu.Items(0).ToString()
'Movefile(DateinameAlt, DateinameNeu)
My.Computer.FileSystem.CopyFile(DateinameAlt, DateinameNeu, True)
Next i
MsgBox("Fertig!", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information)
End SubDas Problem ist nun, dass er immer nur die erste Datei des Verzeichnisses wie gewünscht kopiert.
Hat da wer ´ne Idee?
Gruß,
René.
P.S.: Wenn wir gerade dabei sind, alternativ würde es mir auch reichen, die Datei einfach nur umzubenennen. Move() geht leider nicht.
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 112651
Url: https://administrator.de/forum/visual-basic-2008-kopiert-nur-eine-datei-aus-listbox-inhalt-anstatt-alle-112651.html
Ausgedruckt am: 28.04.2025 um 21:04 Uhr
2 Kommentare
Neuester Kommentar
Hallo rbrixel!
Versuch es mit folgenden Zeilen 11 und 12
[Edit] Ergänzung:
Abgesehen davon gäbe es ja ohnehin die "RenameFile"-Methode, daher:
[/Edit]
Grüße
bastla
Versuch es mit folgenden Zeilen 11 und 12
DateinameAlt = txtPfad.Text & "\" & lstDateien.Items(i -1).ToString()
DateinameNeu = txtPfad.Text & "\" & lstNeu.Items(i-1).ToString()
Move() geht leider nicht.
Sollte es aber eigentlich:My.Computer.FileSystem.MoveFile(DateinameAlt, DateinameNeu, True)
My.Computer.FileSystem.RenameFile(txtPfad.Text & "\" & lstDateien.Items(i -1).ToString(), lstNeu.Items(i-1).ToString())
Grüße
bastla
oh mein *... klar. es war logischerweiße zu einfach...
sehs gerade auch, nachdem ich breakpoints eingefügt habe... thx.
noch mal für alle, so funktionierts dank bastla:
sehs gerade auch, nachdem ich breakpoints eingefügt habe... thx.
noch mal für alle, so funktionierts dank bastla:
For i As Integer = 1 To lblZaehler.Text Step 1
DateinameAlt = txtPfad.Text & "\" & lstDateien.Items(i - 1).ToString()
DateinameNeu = txtPfad.Text & "\" & lstNeu.Items(i - 1).ToString()
My.Computer.FileSystem.CopyFile(DateinameAlt, DateinameNeu)
Next i
