GETESTET UND GEHT !!!
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If IO.Directory.Exists("C:\Musik\Blümche -Retro") Then
- If IO.Directory.Exists("C:\Users\zeus\Desktop\Neuer Ordner (3)") Then
- For Each datei In My.Computer.FileSystem.GetFiles("C:\Musik\Blümche -Retro", FileIO.SearchOption.SearchTopLevelOnly, "*.mp3")
- Dim Dateiname = My.Computer.FileSystem.GetName(datei)
- My.Computer.FileSystem.MoveFile(datei, My.Computer.FileSystem.CombinePath("C:\Users\zeus\Desktop\Neuer Ordner (3)", Dateiname))
- Next
- MsgBox("Fertig")
- Else
- MsgBox("Der Zielordner wurde nicht gefunden ")
- End If
- Else
- MsgBox("Der Quellordner wurde nicht gefunden ")
- End If
- End Sub
- End Class