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?
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
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If ListBox1.SelectedIndex < 0 Then
- MsgBox("Datei Auswählen", MsgBoxStyle.Exclamation, "Test")
- Else
- Dim directory1 = TextBox1.Text
- Dim directory2 = TextBox2.Text
- For Each oldFileName In Directory.GetFiles(directory1, ListBox1.SelectedItem)
- Dim newFileName = Path.ChangeExtension(oldFileName, ".mm").Replace(directory1, directory2)
- If File.Exists(newFileName) Then
- File.Delete(newFileName)
- File.Copy(oldFileName, newFileName)
- Next
- End If
- End If
- End Sub