Dim dFolder As DirectoryInfo = New DirectoryInfo(path.Text)
        Dim fFileArray() As FileInfo = dFolder.GetFiles
        Dim fFile As FileInfo
 
        For Each fFile In fFileArray
            If fFile.Extension = ".mp3" Then
                ID3v1.FileName = path.Text & "\" & fFile.Name
 
                Dim bFolderExists As Boolean
                bFolderExists = oFSO.FolderExists(path.Text & "\" & _
                  ID3v1.Artist & "\")
                Dim source, target As String
 
                source = path.Text & "\" & fFile.Name ' 
                target = path.Text & "\" & ID3v1.Artist.ToCharArray & "\" & _
                  fFile.Name ' 
                If bFolderExists = True Then
                    File.Copy(source, target) ' HIER KOMMT DER FEHLER
                End If
 
                If bFolderExists = False Then
                    oFSO.CreateFolder(path.Text & "\" & ID3v1.Artist)
                    File.Move(source, target)
                End If
            End If
        Next
        MsgBox("Alle Dateien in die Ordner kopiert")