Verschieben und Umbenennen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Verschieben und Umbenennen

    Hallo zusammen, habe Problem beim umbenennen, Daten werden in einer Listbox aufgerufen, die dateien sehn so aus :

    000012345.txt
    000045678.txt

    das befindet sich im ordner A , und es soll in ordner B so aussehn:

    12345.mm
    45678.mm

    wenn man eine datei in der listbox anklickt dann aufs knopf drückt sollte das passieren,
    wie stellet man das an?

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. If ListBox1.SelectedIndex < 0 Then
    3. MsgBox("Datei Auswählen", MsgBoxStyle.Exclamation, "Test")
    5. Else
    7. Dim directory1 = TextBox1.Text
    8. Dim directory2 = TextBox2.Text
    9. For Each oldFileName In Directory.GetFiles(directory1, ListBox1.SelectedItem)
    10. Dim newFileName = Path.ChangeExtension(oldFileName, ".mm").Replace(directory1, directory2)
    11. If File.Exists(newFileName) Then
    12. File.Delete(newFileName)
    13. File.Copy(oldFileName, newFileName)
    14. Next
    15. End If
    16. End If
    18. End Sub

    @guccini So etwa, die Textboxen hab ich mir gespart:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    3. Dim fi() = New IO.DirectoryInfo("C:\Temp\Move\a\").GetFiles("*.*")
    4. ListBox1.DataSource = fi ' das hier ist das "Geheimnis"
    5. End Sub
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. If ListBox1.SelectedIndex < 0 Then
    9. MessageBox.Show("Datei Auswählen", "Test", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    10. Return
    11. End If
    13. Dim directory2 = "C:\Temp\Move\b\"
    14. Dim item = CType(ListBox1.SelectedItem, IO.FileInfo) ' das ist dfas Pendant zum "Geheimnis"
    16. Dim newFileName = IO.Path.ChangeExtension(item.Name, ".mm").TrimStart("0"c)
    17. item.MoveTo(directory2 & newFileName)
    18. End Sub
    19. End Class

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @guccini Du musst nur aufpassen, was passiert, wenn Du auf eine bereits verschobene Datei klickst, da greift er ins Leere.
    Am besten, Du löschst dann den betreffenden Eintrag.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende